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Foreword 

Here, at last, is the key to creating and playing 
adventure programs on your Commodore 64. Written 
by two highly-experienced authors and adventurers, 
this book will take you further into the fabulous world 
of computer adventuring than you had dared hope. 

You’ll learn how computers organise the imaginary 
environments for adventures and how you can create 
your own, so they are logical and consistent — yet 
extremely difficult and challenging to solve. This book 
will show you how to write program lines which allow 
your Commodore 64 to understand words like “GO”, 
“PICK UP”, “UNLOCK”, “GET” and all the rest which 
are needed so that the computer will follow player’s 
commands. 

Much more is given relating to the mechanics of 
writing adventure games. But, as well as this, you’ll 
find a host of information to help you solve and enjoy 
commercial adventures. 

And, best of all, there are four complete adventure 
programs, just begging to be typed into your 
Commodore 64 and solved. 

The book also contains information on sophisticated 
graphics handling (including sprites) plus sound 
effects routines to incorporate into your own 
programs. 

Time to buckle on your armour, and enter the 
fascinating world of Adventure gaming. 

Tim Hartnell, 

London, 1984. 



Introduction 


There can be no doubt that adventure games played 
on computers are increasing in popularity all the time. 
After ail, what better way to relax than to forget the 
real world and plunge headlong into a world of 
make-believe. Only an adventure game can take you 
to the heady heights of Mount Everest, pit you against 
elfin gods in the centre of the earth and transport you 
into a darkened maze of terrifying complexity, all at a 
touch of a key. 

To many people, the real enjoyment is in trying to win 
the game. They certainly are a challenge to play. To 
find all the objects needed and to reach your goal is a 
task often requiring much thought. Adventures are 
much more stimulating and fulfilling than zapping aliens 
ail the time. 

For many adventure gamers, there comes a time when 
they want to write their own adventure. ‘Where do I 
start?’ is an often heard question, for when you sit 
down and actually try to write one, you realise how 
complex the task is. 

Primarily, this book is a collection of programs for you 
to type in and enjoy and/or use in your own adventure 
games. There are four adventures in this book plus a 
whole host of adventure utilities and three 
non-adventure games. 

The whole aim of this project is to help you get to the 
stage of being able to write your own adventure 
games as quickly as possible. 
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There is little more to say, save that by reading 
through the book in order, you will gain the most from 
it. Finally Good Luck and Happy Adventuring! 

Robert Young, 

Clive Gifford, 

1984. 
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Chapter One 

An Introduction 
to Adventures 
and Adventure 
Programming 




CHAPTER ONE 

Adventures and Adventure programming is a huge 
area of computer entertainment that only recently has 
been exploited to its full capability. The ability to be 
locked in mental combat with unreal obstructions and 
fantastic creatures in a mythical world where anything 
can happen is a pastime that has attracted thousands 
of computer owners. 

Adventure games can offer a real challenge to those 
who want more from computer gaming than blasting 
spaceships out of existence. The range of adventures 
available for your computer is wide-ranging and 
contains something to interest and amuse everyone. 

From a programming point of view, adventures are 
ideal projects for the new programmer. After fiddling 
around with a few very simple programs, you may find 
you want to embark on a bigger project. Adventures 
provide an excellent option. There is no need to 
complicate matters with graphics, speed (as for action 
games) is not essential, many areas of simple BASIC 
programming such as array manipulation and string 
handling are used and the program can be made as 
personal as you like. 

If anyone can claim to be the inventor of the adventure 
game as we know it then it must be two mainframe 
programmers from the United States, Crowther and 
Woods. Their adventure was set in what today is 
termed as the ‘classic mould’ with trolls, dragons and 
serpents to defeat in order to capture treasure. This 
adventure became a cult with many computer users of 
the time, particularly on University campuses and in 
big business where there was access to large 
computer systems. Once microcomputers with 
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sufficiently large memories came along, the adventure 
programs were scaled down to fit. 

If you ask many people what is a computer adventure, 
they will answer that it is a game with monster, trolls, 
wizards and treasure. You must pick up various 
objects to do battle with the beasts and obtain as 
much treasure as possible to take back to home base. 
This is the ‘classic’ type of game following Woods and 
Crowther’s model. There is now, of course, a much 
wider range of adventure games available with no 
mythical beasts, no treasure to collect and no objects 
to even contemplate picking up. Perhaps that is the 
beauty of adventure writing; almost any scenario can 
be used and any method of play can be adopted to suit 
the programmer’s whim. 

What then distinguishes adventure games from any 
other form of computer game? I considered this matter 
and below put forward what I believe to be the basic 
points that a game must include to become an 
adventure. 

An adventure must have: 

a) Locations (rooms). 

b) Usually some form of logical connection between 
rooms (though the logic is sometimes far from 
perfect!). 

c) Some form of reward or aim to work for, e.g. 
escape or the accumulation of treasure. Without 
any objective, an adventure game would become 
pointless and boring. 

d) Some form of obstacle to hinder your progress, 
e.g. monsters, locked doors. 

e) Some element of discovery. 
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f) Some form of command with which the adventurer 
can direct himself around the locations. 

These different factors all seem essential in order to 
have a proper, playable and entertaining adventure. 

How do you go about writing an adventure? The 
chapters following this attempt to answer this with 
practical examples, but let’s consider a little theory 
first. 


Structured Programming 

The most important factor that you must take into 
consideration is ‘structured programming’. Before you 
turn the page in horror, it must be said that structuring 
your programs is not that difficult. Everyone, to an 
extent, already structures their programs and it only 
takes a little extra thought and planning beforehand to 
give your programs enough structure to increase their 
performance and save you, in the long run, time. 

Why bother structuring programs at all? There are 
many good reasons to do so. BASIC is at heart an 
unstructured language when compared to something 
like FORTH and so the programmer must add his or her 
own framework. Organising a program sensibly can 
speed a program up by making sure it does not have to 
look through masses of irrelevant code every cycle. 
Structuring a program allows room for expanding the 
program at a later date and saves memory space. 

For adventure programmers, structuring is essential. 
If you have written a program without structure, 
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returning to it after a gap of several weeks can be very 
difficult. Just by looking at the program listing, you 
may not know where the room display routine was 
or where the score increment is situated. For budding 
adventure writers, knowing where each routine and 
every piece of code is situated is vital, often simply 
because adventure programs are larger and more 
complex than other pieces of software. Without 
structuring, a large adventure will be a mess and 
future attempts at modification futile. 

I have laboured this point a little, but I think if there is a 
secret to writing quality adventures of any length for 
any machine then it must be the use of structured 
programming. 

Adventure programs need to be split into areas so that 
the programmer can concentrate on one area at a time. 
The diagram below shows one possible way. 


INITIALISATION 

T 

CONTROL 

LOOP 

7m ^ 

HANDLERS 

wuw/ 

SUB-ROUTINES 
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Initialisation simply sets all variables, arrays and other 
parameters to their starting values. The control loop is 
the vital part. The program constantly cycles through 
this waiting for a player’s input and then directing the 
program flow to one of the many handlers. The 
handlers cover all the actions and tasks that arise in 
the adventure such as movement, a battle, finding and 
taking items and the like. These handlers make use of 
a clutch of subroutines such as message display and 
pause loop. The handlers, once they have finished 
their task, send action back to the control loop and the 
process starts again. 

It should be noted that this is just one method of 
structuring your adventure. There are lots of different 
ways which may include not having a bank of 
subroutines but incorporating them into the handlers. 


Planning 

With the discussion about structured programming 
under our belts, we can now turn to planning out our 
adventure program. It must be said that planning out on 
paper in advance is almost essential to good 
adventure writing. You must try and decide first the 
specifications of your adventure, including such things 
as how many locations, the number of commands, 
types of obstacle, scenario setting and so on. 

Once you have written your parameters down, you can 
start to work out which operation goes where. Having 
a few pages of information is very useful to turn to 
when you are in the process of completing your 
adventure. If you find a snag in the program, you do not 
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really want to look through 16K of program lines for 
the elusive bug. It is much simpler to check your 
papers for any possible problems. In later chapters, 
you will learn how to construct travel tables, a map of 
your adventure, an object table and all the other 
necessary information blocks to make your adventure 
work, and work smoothly. 
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Chapter Two 


A Sample 
Adventure, 
The Dark 
Forest 




CHAPTER TWO 

Now to our first adventure, a medieval-style scenario 
with traditional ‘baddies’ to overcome. The Dark 
Forest places you in the centre of a huge, foreboding 
forest around the time of King Arthur. You have been 
sent by him to search for and destroy The Creature, a 
strange beast that no-one has ever seen but who rules 
the county of Ramshire by terror. Once at the forest, 
your adventure has begun. You must find enough 
treasure and magic influence to survive, while 
retaining plenty of strength so that when you 
eventually meet with this loathsome brute, you can 
finish him off once and for all. The pathway to your goal 
is not an easy one. Many fierce animals as well as the 
infamous Black Knight live in this area and will do their 
best to overcome you. Good Luck and happy fighting! 

I do not want to give many of the secrets away as 
without them, the adventure loses a lot of interest. This 
adventure is not of the sentence input type where the 
computer must accept and decode a phrase or 
sentence command from the adventurer. You move 
around the forest by entering the compass heading, N, 
S, E or W. Occasionally, you will be asked questions. 
Usually these are answered with a ‘Y’ or ‘N’ but the 
program is very user-friendly so you should not have 
any problems in this department. 

One other command at your disposal is the rest 
command. By typing ‘R’ you can choose a number of 
hours for you to relax and increase your strength. 
However, each hour’s peace costs a certain amount of 
cash, so you must take this into consideration. 

There will come a time when you cross paths with a 
fearsome monster of some ugly kind or another. You 
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have the option of either fighting or running. If you 
choose fighting, you then have to choose an attribute 
to battle with. Certain monsters are more powerful 
than others. I will not give too many details of each 
monster’s abilities — suffice to say that if you come 
across the Black Knight, run as fast as you can! 

This adventure uses many random elements in 
contrast to the adventure game which follows the 
Nielson Papers. The locations and the logic linking 
them up is always the same. This adventure could, 
perhaps be a little more structured than it is but as it 
stands, the game runs smoothly. I know where all the 
routines lie and you will easily be able to glean all that 
you need to know from the listing. 

At the end of the chapter, there is a complete 
ready-to-run listing of the game. The rest of this 
chapter breaks the game down into various sections 
and analyses them in detail. Without organised 
programming it would have been impossible to split 
the program up into neat blocks at all. The program 
sections have been given the following titles: 
Initialisation; Control Loop; Monsters and Fight; 
Attributes and Possessions; Locations; The Final 
Confrontation; and Win or Lose. This is the order that 
we will look at the program sections. 


Initialisation 

Initialisation in this program is in two blocks, the 
initialisation subroutine and the start game sequence. 
We will look at the short game sequence first. It is 
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shown below: 


10 REMxxxxxxxxxxxxxxxxxxxxxxx 
20 RENxxx THE DARK FOREST xxx 
30 REMxxxxxxxxxxxxxxxxxxxxxxx 
50 GOSUB 2630 

55 POKE 53280,0:POKE 53281,11 

60 PRINT "sj': PRINT " QQQQQQQQQ3I 3 111 ] 3 3 3 3 

3p THE DARK FOREST" 

65 REM CLEAR SCREEN DOWN CURSOR RIGHT CU 
RSOR BLACK 

70 PRINT " QQ333333333pP RESS ANY KEY TO S 
TART" 

75 REP1 CURSOR DOWN RIGHT CURSOR BLACK 
80 GOSUB 3320 

90 GET A*:IF A$ = "“ THEN 90 

100 PRINT " QQ 3 3 3 3 3 33EY QU HAUE DARED TO E 

NTER.. .":FOR DD = 1 TO 1000:NEXT DD 

110 PRINT " QQ 3333333333333 3G OOD LUCK" 

120 FOR DD=1 TO 1000:NEXT DD 


The first genuine program line, line 50 goes to the 
initialisation subroutine from 2630 onwards. The next 
few lines set screen and border colours, clear the 
screen, set up the title page and wait for a key to be 
pressed. Once a key is pressed (the A$ value is 
something other than “ ”) the game displays the ‘good 
luck’ message and flows into the control loop section 
of the program. 
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The initialisation loop is shown below: 


2620 REM xxx INITIALISE xxx 

2630 DIN NC3 3:DIN ZC21,53:DIN QC5,53 

2640 NCI3=INTC30xRNDC133+21 

2650 NC23=INTC70xRNDC133+11 

2660 NC33=INTC6xRNDC133+1 

2620 FOR A=1 TO 20 

2680 FOR B--1 TO 5 

2690 READ ZCA.B3 

2200 NEXT B, A 

2710 DATA 10,13,11,8,0,19,7,3,0,0 

2720 DATA 0,10,4,2,0,0,19,5,3,0 

2730 DATA 8,9,6,4,0,0,0 ,0,5,0 

2740 DATA 2,8,10*,0,0,7,12.1 ,0,0 

2750 DATA 5,11,0,19,0,0,0,0,0,0 

2760 DATA 9,0,17,1,0,8,0,13,0,0 

2770 DATA 1,0,14,12,0,0,2,15,13,0 

2780 DATA 11,18,16,14,0,17,0,0,15,0 

2790 DATA 0,16,0,11,0,0,20,6,0,0 

2800 DATA 4,0,9,10,0,18,0,0,0,0 

2850 B=1:P=0 

2860 FOR A=1 TO 5 

2870 RO--INTC18XRNDC1 3 3+2 

2880 IF ZCRO,5 3=0 THEN ZCRO,53=A:GOTO 28 

90 

2885 GOTO 2870 
2890 NEXT A 

2892 00=54296:AD=54277:SR=54278:WL=54276 
:HF=54273:LF=54272 
2900 RETURN 
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Line 2630 dimensions all the well-used arrays. M is 
the attribute array and Z is a two-dimensional room 
array. 

The attributes’ strength, money and magic spells are 
given values in lines 2640, 2650 and 2660. The 
section of code between 2670 and 2800 reads the 
values of the room data into the room array Z. There 
are 21 rooms each having five numbers assigned to 
them. The actual workings of this ‘location logic 
system’ is shown in the locations section of this 
chapter. 

B, the variable holding the player’s location number is 
set to 1 and the variable used for the special idol, P, is 
set to 0. 

Finally, in this section, the starting positions of the five 
monsters are determined by the lines 2860 to 2890. 
The fifth number in the room array data is set to a value 
other than 0 if one of the five monsters is present in 
that room. The program then RETURNS. 


Control Loop 

The most-often used part of the program, the control 
loop, is the most vital component of this game. The 
functions that it performs are wide-ranging and are 
detailed below. 

The first two lines perform the presentation ‘niceties’, 
that is clearing the screen, pausing the program, 
playing a quick note (GOSUB 3370) and printing up 
the attribute values (the GOSUB 730 handles that). 
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130 FOR TD-1 TO 1500:NEXT TD: PRINT "sJ':R 
Eh CLR SCRN 

140 GOSUB 3370:GOSUB 730:PRINT 


The player’s response is handled by line 280 which 
then sends the computer back to the beginning of the 
control loop. 


280 PRINT:INPUT "WHAT NOW";N$:N$=LEFT$CN 

*,n 

290 GOTO 130 


The player’s input is cut down to the first letter and 
then acted upon by the control loop. Lines 150 to 180 
process the player’s movement. 


150 IF N$="N" 
1 

160 IF N$="S" 

170 IF N$="E" 
3 

180 IF N$="W" 
3 


AND Z C B , 1 3 00 THEN B=ZCB,1 
AND ZCB ,2 300 THEN B=ZCB,2 
AND ZCB,3300 THEN B=ZCB,3 
AND ZCB,4300 THEN B=ZCB,4 


If the player’s input was not ‘R’ (for rest), the program 
jumps to line 230. The lines between 190 and 230 
handle the rest command. A price for each hour’s 
uninterrupted sleep is displayed and an input waited 
for. There then follows a pause which has a rough 
relationship to the number of hours chosen. Obviously, 
the money is deducted from the array and the amount 
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left is displayed together with the new strength level. 


i90 IF N*<>"R" THEN 230 

200- CS = INTC CB+10 D/10 D: PRINT "1U0.K. YOU 

CAN SLEEP HERE BUT IT WILL" 

201 REN'RIGHT CRSR 

205 PRINT "COST YOU";CS;"CO IN/S FOR EUER 

V HOURS UNINTERRUPTED REST":PRINT 

210 INPUT "HOW MANY HOURS";H 

215 IF H<1 OR MC2 >-CH*CSK0 THEN PRINT 

TRY AGAIN SLEEPY S3":GOTO 210 

220 MC2D--MC2>-CH*CSD:MC1 3--MC1 D+H: PRINT 
<;QQQQQQ 1 1 1 1 1 1 1 3 3 3 3 ] ] ]Z ZZZZZZZZZZ" 

221 REM CLR SC.RN DOWN CRSR RIGHT CRSR 

222 FOR DD--1 TO 500*H: NEXT DD: PRINT "s.": 
GOSUB 730:GOTO 250:REM CLR SCRN 


The final lines in the control loop are particularly 
concerned with locations. Lines 250 to 254 direct the 
program to the correct location subroutine. Line 260 
checks to see if there is a monster in the same room as 
you and if there is, the computer jumps out of the 
control loop and into the monster/fight routine. Lines 
230 and 240 provide a check to see if you have made 
a valid move since the previous go. If CHK equals B 
after going through the movement routine, it means 
that the player has not been able to move even though 
he asked to do so. Therefore the player attempted to 
make an invalid move and is told so. 


230 IF CHK=B THEN PRINT "CANNOT MODE IN 
THAT DIRECTION":GOSUB 3150:GOTO 260 
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240 CHK=B 

250 IF B>10 THEN GOTO 254 

252 ON B GOSUB 980,1000,1020,1120,1200,1 

250,1270,1290,1310,1420;GOTO 270 

254 B~B~10:ON B GOSUB 1610,1630,1660,168 

0,1700,1850,1880,1910,1930,1950:B =B+10 

260 IF ZCB ,5 ]<>0 THEN 300 

270 GOSUB 790 


Monsters And Fight 

Once the program has detected that there is a monster 
in the same location as the adventurer, the program 
moves to this routine. The lines up to 360 check to see 
which monster is in the location and print a short 
description of that monster. The monster’s fight level is 
given by the variable E. 


300 REM xxx MONSTER/FIGHT xxx 
310 MN=ZCB ,5 3:PRINT 

320 IF MN=1 THEN PRINT "A BAND OF 10 ROB 

BERS SEIZE YOU" : E--40 

330 IF MN=2 THEN GOSUB 3410 

340 IF MN=3 THEN PRINT "SIR RUFUS OF GAS 

CONY ATTACKS.E=20 

350 IF MN=4 THEN PRINT "A FEROCIOUS BEAR 
POUNCES":E~20 

360 IF MN=5 THEN PRINT "YOU HEAR THE WAR 
CRY OF THE BLACK KNIGHT": E--60 


The program waits for the player’s decision to fight or 
run. If the player chooses to run, and the random 
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element in line 390 is favourable, then the player is 
asked to decide on a direction. The answer is then 
handled in the same way as any normal direction 
command. Four points are taken from the player’s 
strength level as well. 

If the random element is not so kind, the player loses 
ten strength points and must stay and fight the enemy. 


370 INPUT "WILL YOU FIGHT OR RUN”;F*= 
LEFT $ CF$,1 I 

380 PRINT:IF F*="F" THEN 410 

330 IF RNDC13 >0 .4 THEN INPUT "WHICH DIRE 

CTION, COWARD";N4:NCI3=MC13-4:GOTO 130 

400 PRINT "NOS YOU DUST STAND AND FIGH 

T" 

405 PRINT "YOU LOSE 10 STRENGTH":MC1 3=MC 
1 0—10 


The fight now begins with the computer accepting the 
name of the attribute that the player wishes to fight 
with. Several lines are taken up with checks to see 
that the player can use that attribute. The fight display 
is then constructed. A simple bar graph, for want of a 
better name, is displayed with a bar for the player’s 
attribute and a bar for the monster’s attribute. These 
bars are sized in proportion to the actual level of the 
respective attribute. Line 510 handles any attribute 
that is larger than sixty. 


410 REM xxx FIGHT xxx 

420 2CB ..5 3=0: R0--INTC 19XRNDC1 33+1 
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430 IF ZCRO.5 )~0 THEN ZCRO,5D=MN:GOTO 44 
0 

435 IF ZCRO ,5 300 THEN GOTO 420 

440 PRINT "WHICH ATTRIBUTE DO YOU WISH T 

0 FIGHT WITH CENTER WORD)" 

445 INPUT A$ 

450 IF A£="STRENGTH" THEN A=1 
460 IF A$="NONEY" THEN A=2 
470 IF A$="NAGIC" THEN A=3: E = INTCE/10) 
480 IF A = 1 AND NCI XI THEN 2910 
490 IF A =2 AND NCAX1 THEN PRINT "CANNOT 
USE NONEY":GOTO 440 

500 IF A =3 AND NCAX1 THEN PRINT "CANNOT 
USE NAGIC." 

510 PRINT "a.!': IF NCA)>60 THEN DD=NCA)-60 
s N CA 3=60 

515 REN CLEAR SCREEN 

530 PRINT " s.Q])]]]]]]]RzT HE BATTLE CONNE 
NCES. 

535 REN CLR SCRN DOWN CRSR RIGHT CRSR RE 
0 ON LT BLUE 

540 PRINT "QQ YOU: 

541 REN DOWN CRSR PURPLE YELLOW 

545 FOR TX=1 TO NCA):PRINT "a";:NEXT:REN 
SHIFT KEY + Q KEY 

546 PRINT 

548 PRINT " QQ-n-F NENY: "; 

550 FOR XT = 1 TO E:PRINT "q"X NEXT:REN SH 
I FT KEY + Q KEY 
560 GOSUB 3390 

The fight continues with one being docked from each 
of the opponents’ scores until one of the attributes 
reaches zero. If the player has won, then he. will be 
granted extra points for one of his attributes. If he 
loses, the game is over. The bar chart is updated every 
cycle of the loop, with the bars getting smaller. 
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One additional point of interest in this part of the 
program is the way the fight is weighted in favour of 
the player. You can see in line 610 that the computer is 
given a one In three chance of jumping the line which 
deducts one from the player’s score. The monster, in 
contrast, has only a one in seven chance of the same 
happening. Therefore, if the adventurer starts a fight 
with four or five points less than the monster, he will 
not be resigned to defeat but will be waiting to see if 
he can overcome the monster’s advantage. 


570 REM xxx MAIN FIGHT LOOP xxx 
580 IF INTC7XRNDC1 3 3=4 THEN GOTO 600 
590 E=E-1 
600 GOSUB 3390 

610 IF INTC3*RNDC111 = 1 THEN GOTO 630 
620 HCA 3=NCA 3-1 
630 GOSUB 3390 

640 IF E>0 AND NCA3>0 THEN GOTO 530 

650 IF HCA3<1 THEN GOTO 2910 

660 PRINT "QQYQU W T N S BQF" s RFH DOWN CRSR 

WHITE 

670 GOSUB 3390 

680 ER=INTC40XRNDC 1 1 3+1:BU=INTC7*RNDC1 33 
+ 1 

690 IF BU<4 THEN PRINT "you GAIN";ER;"ST 
RENGTH":NCI3=NC13+ER+DD 

700 IF BU<7 AND BU>3 THEN PRINT "YOU GAI 
N" ; ER; "HONEY UNITS": NC2 3=NC2 3+ER+DD 
710 IF BU =7 THEN ER = INTCER/103+1:PRINT " 
YOU GAIN";ER;"NAGIC SPELLS" 

715 IF BU=7 THEN NC33=MC33+ER+DD 

720 FOR T = 1 TO 1500: NEXT T: PRINT "sJ':GOT 

0 250:REN CLEAR SCREEN 
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Attributes and Possessions 

Lines 730 to 780 make up the attributes routine. They 
have been defined in the initialisation section and are 
modified in the rest of the adventure. These attributes 
take the place of objects which can be handled in other 
adventures. A quick glance at the attributes can give 
you an idea of how well you are doing and in which 
areas, if any, you are weak. 

The routine simply takes one away from the strength 
attribute and then displays the attributes. If the 
strength is less than one, then the program jumps to 
the ‘lose routine’ from 2910 onwards. 


730 REM ATTRIBUTES xxx 

740 MCI3=MC13-1:IF MC13C1 THEN 2910 
750 PRINT "STRENGTH: ";I NT CMC 133 
760 PRINT "MONEY: ;MC2] 

770 PRINT "MAGIC: ";MC33 
780 RETURN 


The possessions routine is a little more involved. Line 
790 decides if an object is going to appear and if so, 
chooses one of the five available objects. The lines 
from 810 to 850 describe the particular object. 


790 IF RND[1 3>0.8 AND BOi AND [3015 AND 
3 020 THEN PS = I NT CSxRNDC 1 3.1+1 : GOTO 810 
800 RETURN 

810 IF p 8-l THEN PRINT AN OlD GlASS BO 
tTlE IS UITHIN REACH. IT IS COHERED", 
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315 IF PS=1 THEN PRINT " IN COBWEBS" 

320 IF PS=2 THEN PRINT " HERE IS A LARGE 
OAK CHEST. A WEIRD" : PRINT "SIGN IS"; 
325 IF PS-2 THEN PRINT " CARUED ON THE L 
ID" 

830 IF PS=3 THEN PRINT " A UELLUM BOOK L 
IES -BY YOUR FEET" 

340 IF PS =4 THEN PRINT " A GOLD LOCKET 0 
N A CHAIN IS CLOSE TO"; PRINT "YOU” 

350 IF PS =5 THEN PRINT " BEFORE YOU IS A 
BOX OF EXOTIC FRUIT" 


The next two program lines accept the player’s 
decision to open the particular object or not. If the 
player is brave and decides to open the object, then 
there is a three in ten chance of an Ore jumping out and 
attacking. This chance is handled by lines 890 to 896. 

The rest of the routine is concerned with printing, and 
altering, the attributes of the player according to 
which object he or she safely opened. The 
descriptions are quite detailed and add a little extra 
realism to the game. As opposed to having a large 
pause loop, we choose to let the player press a key to 
continue. This is handled by lines 950 and 960. 


320 INPUT "DO YOU WANT TO OPEN IT'UOPi 
380 PRINT. IF LEFTiCOPT-, 1 DO" Y" THEN RETU 
RN 

885 IF RNDC1K0.2 THEN GOTO 900 

390 PRINT "AN EUIL ORC LEAPS OUT AND ATT 

ACKS YOU" 

394 FOR TT = 1 TO i000;NEXT TT;PRINT 'AFTE 
R A BRIEF STRUGGLE IT RUNS AWAY" 
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396 PRINT "LEANING YOU LEAK AND TIRED":M 
f1D-MC1D-CMC1 D/4D:PS-0 

900 IF PS=1 THEN PRINT "A LARGE CLOUD OF 
SMOKE APPEARS THE'/PRINT "ESSENCE"; 

905 IF PS=1 THEN PRINT " GIUES YOU NEW S 
TRENGTH AND LIFE" s MC1 D-MC 1 D+8 
910 IF PS=2 THEN PRINT "MUCH•TREASURE IS 
CONTAINED IN THE CHEST- 
915 IF PS-2 THEN PRINT "YOU ARE A RICH M 
AN”:MC2 D-MC2 D+35+INTC15xRNDC1 D D 
920 IF PS=3 THEN PRINT "IT CONTAINS 6 PO 
ulERFUL SPELLS":MC3D-MC3D+6 
930 IF PS=4 THEN PRINT "IT HAS A SMALL P 
OTRAIT OF THE BEAUTIFUL- 
935 IF PS=4 THEN PRINT "PRINCESS CAROLIN 
E IT IS QUITE UALUABLE": MC2 D--MC2 D+l 0 
940 IF PS =5 THEN PRINT "YOU ARE SO TEMPT 
ED THAT YOU EAT SEUERAL" 

945 IF PS=5 THEN PRINT "THEY ARE DEL I CIO 
US AND ADD TO YOUR STRENGTH" 

947 IF PS-5 THEN MC1D=MC1D+12 
950 PRINT;PRINT "xxxxxx PRESS ANY KEY TO 
CONTINUE xxxxxxx" 

960 GET At;IF At-"" THEN 960 

965 PRINT "s_" ; RETURN: REM CLEAR SCREEN 


Locations 

This is the most important part of any adyenture. 
Without locations to move between, there would be no 
exploration and little discovery, and these two 
elements are vital to make an entertaining adventure. 
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You need to formulate a system of logical connection 
between each location and its exits. The adventures in 
this book show you several versatile ways of 
constructing ‘room logic’. The Dark Forest’ uses one 
of these systems. 

If you look through the initialisation section, you will 
see a large amount of data that is being read into an 
array, Z. There are five numbers for each location. 
Let’s examine the third set of numbers, i.e. the data for 
location number three. The data is as follows: 0,10, 4, 
2, 0. The last number is used later for indicating 
whether a monster is present in the location, so at this 
stage in the program, every fifth number is a zero. The 
first four numbers then relate to location numbers. The 
first piece of data gives the number of the location if 
the player goes north from location 3. In the location 
we are discussing, location 3, the player’s way in that 
direction is blocked; there is no exit, hence 0. If the 
player wishes to move south then the second piece of 
data gives the location he or she would end up in, 
location 10. The third item in the data list gives the 
location if the player goes east and the final piece is 
for when the player goes west. If you look at lines 150 
to 180 in the control loop, you will see how this 
information is interpreted when the player wishes to 
move. Line 150 simply means, ‘If the player requests 
to go north and the first item of data in the present 
location is not equal to 0 (is not a blocked exit) then 
the first piece of data in the player’s present location 
will now become the number of the player’s new 
location. The player’s location is always stored in the 
variable B. 
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If you find this a little involved, then consider the 
simple example below. As you can see, there are three 
rooms and an ‘outside’ labelled location 1. 


3 

1 

2 

1 1 


4 


The data for the four locations would be as follows: 
Location 1 0, 0, 0, 2 

Location 2 0, 4, 1,3 

Location 3 0, 0, 2, 0 

Location 4 2, 0, 0, 0 

Location 1 has a single exit to the west, location 2 has 
exits to the south, east and west, location 3 has an 
exit to the east and location 4 has an exit to the north. 
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From this it can be seen how a full logic system can be 
developed. It is a good idea to remember the locations 
as simple rooms with open doors in certain directions. 
When designing your adventure, map out your 
locations first on paper. You will then find it easier to 
code in a data list and will also have at your disposal a 
complete map of your adventure. 

This will be very useful when testing all the parts of the 
adventure, or when a friend is playing the game and is 
in trouble. 

Many extra options can be attached with this system. 
Up and down movement could be allowed with two 
extra items of data for each location needed. The extra 
data would simply signify which location the player 
would end up in if he or she went up, in one case, or 
down in regard to the other piece of data. 

Using a similar feature to the monster feature in this 
game, it would be possible to assign an extra figure 
that places the objects in fixed positions at the start of 
the game so that each item would only appear in one 
location. The actual possibilities of this system are 
very wide indeed. 

Once the player has moved to a new location, the 
computer ON ... GOSUB’s to the line number dealing 
with that location. 

The locations follow. Most are self-explanatory, so 
it is only necessary for us to give details if the location 
is particularly complex. 
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970 REN xxx LOCATIONS xxx 
980 PRINT "YOU ARE IN A SHALL CLEARING I 
N THE DARK FOREST YOU CAN PROCEDE IN"; 
985 PRINT " ANY DIRECTIONTHAT YOU NISH- 
990 RETURN 

1000 PRINT "YOUR UIEW FROM OAKRIDGE HILL 
IS";PRINT "MAGNIFICENT, YOU CAN SEE": 
1005 PRINT " GRENDAL THE HERMIT'S LOD 
GE IN THE DISTANCE- 
1010 RETURN 


Note that the momento at the bottom of the well can 
come in extremely useful. (Part of the adventure 
involving the code on the momento is the hardest 
piece for the adventurer to solve.) 


1020 PRINT "YOU HAUE FOUND YOURSELF IN A 
PEACEFUL FIELD":PRINT 
1030 PRINT "THERE IS A SHALL EMPTY WELL 
NEXT TO YOU DO YOU WANT TO GO DOWN IT"; 
1032 PRINT " f -VN1 
1035 INPUT Q$ 

1040 IF Q$ ~ " N" THEN PRINT ALL RIGHT STA 

v IN THE-FIELD THEN":RETURN 

1050 IF INTC3XRNDC 1 3.1 = 1 THEN 1120 

1060 POKE 53280,0;POKE 53281 ,0.PRINT "$" 

-REM ClEAR SCREEN 

i070 FOR XX=1 TO 39 

1080 PRINT TABCXX] Ex"-FOR TD~1 TO 100; 
NEXT TD;REM WHITE 
1090 NEXT XX 

1095 PRINT "0 0000,1 IinnimmiS PI AFm a 
; FOR TD~1 TO 1000;NEXT TD 

1096 REM DOWN CRSR RIGHT CRSR 
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1097 POKE 53280,0: POKE 53281,11 

1100 PRINT " sQQQQQH OH SILLY OF PIE . I THO 
UGHT IT WPS EMPTY" 

1101 REM CLR SCRN DOWN CRSR 
1105 MCn = 10:MC2D = 10:MC3.r-l:B---l 

1110 PRINT; PRINT "YOU DO MANAGE TO GET 0 
UT, BUT YOU LOSE MUCH MONEY AND STRENGT 
H" 

1115 GOTO 1150 

1120 PRINT; PRINT " A SMALL NICHE IN THE LI 
ALL HIDES A GOLD" 

1125 PRINT "FIGURE, THE RAM OF ANAG" 

1130 PRINT "CARUED ON THE BASE IS THE WO 
RD >jGRANDOSE_" : REM LT RED WHITE 
i135 PRINT "THE FIGURE IS UALUABLE LOOK 
AFTER IT" 

1140 p -1; M C 3 3 ~M C 3 3+1; M f.2 3 ~M C 2 3+5 
1150 PRINT;PRINT xxxxxx PRESS ANY KEY T 
0 CONTINUE xxxxxxx” 
i 160 GET AT-; IF A$ = "" THEN GOTO 1160 
i 165 G'OSUB 730; RETURN 

1170 PRINT "THE BARON‘S HOUSE IS NEAR BY 

YOU CAN HEAR MUSIC. 

il90 RETURN 

1200 PRINT "YOU ARE IN A DAMP HUT WITH A 
lEAKY ROOF A MUSTY SMELL LINGERS"; 

1202 PRINT " AND THERE IS ANOTHER R 

OOM TO THE RIGHT" 

1210 FOR TD--1 TO 1500; NEXT TD 
i220 GOSUB 3150 

1230 PRINT "WHAT ; S THIS? A SMALL DOOR IN 
FRONT OF YOU CN3" 

1240 RETURN 

1250 PRINT "AROUND YOU IS A SPARSELY FIL 
LF.D STORE. ROOM THIS IS A DEAD END" 
1260 RETURN 
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1270 PRINT "YOU STAND IN the MIDDLE OF B 
ERRY HAMLET IT IS UERY QUIET THE "; 

1275 PRINT 'PLACE SEEMS DESERTED" 

1280 RETURN 

1290 PRINT "YOU ARE ON A GRASSY HILL SLO 
p ING DOWNWARDS INTO A GALLEY"; 

1295 PRINT ■ H SMALL HAMLETLIES AT THE 
NORTHERN END'' 

1300 RETURN 


The following location, the woodcutter’s hut, waits for 
you to enter a code word. It takes the first five letters 
of whatever you enter and compares it with a string 
holding a number of keywords. If the random number is 
in your favour and you have entered one of the code 
words, then you will be allowed to enter. A much more 
sure way to enter the hut is to find the special treasure 
which will give you the code word that works every 
time. Every time you play the adventure, you will have 
to collect the treasure for the code word to work. If 
you get the word wrong or you are not carrying the 
treasure, you are chased away. 


1310 PRINT " you ARE STANDING OUTSIDE A 

WOODCUTTER 1 SHUT ENTER AT YOUR OWN "; 

1315 PRINT "PERIL":G0SUB 3150 

1320 PRINT:PRINT 'TYPE IN RIGHT CODE TO 

ENTER HUT":INPUT FT:PRINT 

1330 F$-~" IUOR YMAGICSILUEGRENDRUFUSDI AMOR 

ERRYBARON" 

i340 FOR T = 1 TO INT C 8*RND C1 3 J+1 ;■ FFP7U0T 
CFT ,t *5-4 ,5 ].NEXT T 

1345 JF i_EFTT C FT , 5 ]~FF$ OR f FT ~ " DRAGON" 
AND P•-1 D THEN 1360 
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1350 PRINT 'YOU HAUE USED THE WRONG CODE 
VOU HAUE BEEN CHASED AWAY BY"; 

1355 PRINT " THE WOODSMAN INTO ANOTHER 
PART OF THE FOREST" 

i357 B~INTf.3*RNDC 1 3 0+2-MCI 0 “FI C1 D~8: RETUR 
N 

1360 PRINT ' CORRECT CODE S5 ENTER HUT BY 
HEADING ' N ‘ : RETURN 


The next location, location 10, is the prison that the 
Black Knight throws you into. Line 1420 sets the 
screen to black and then the rest of the routine gives 
you some textual details of your predicament and 
offers you one way of escaping. We will not tell you 
any more about how to escape; that is up to you to 
work out. 


i370 PRINT N*="N":RETURN 

1420 PRINT " sj': POKE 53280,0:POKE 53281,0 

:G0SUB 3320:REM CLR SCRN 

1430 FOR T = 1 TO 1000:NEXT T: POKE 53280,0 
:POKE 53281,11 

1440 PRINT "QQYOU FELL INTO A BEAR TRAP 
AND WERE CAUGHT BY THE BLACK"; 

i445 PRINT " KNIGHT" 

1450 FOR T = 1 TO 1000:NEXT T: PRINT "HE HA 
S IMPRISONED YOU' 

i460 INPUT "WHAT NOW";NT.IF NTO'GRANDOS 
' THEN 1480 

1463 PRINT "CLOSE, BUT WRONG , YOU SHOUL 
0 HAUE THOUGHT ABOUT THE. ; 

1465 PRINT " FIGURE'S NAME":. PRINT "THE R 
AM OF ANAG.-.THE ANAG RAM" 

1470 IF NT ="DRAGONS" AND P = 1 THEN GOSUB 
SOUND: PRINT "s'.': REM CLR SCRN 
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1480 IF N* = "DRAGONS" AND P = 1 THEN PRINT 
QQQQQ11111T HF NAGIC WORD!!" 

1481 REN DOWN CRSR RIGHT C.RSR 

1482 IF N$O"DRAG0NS" THEN 1490 

i485 IF P = 1 THEN PRINT'QYOU ARE FREE AGA 
IN, BUT YOU LOST THE GOLD FIGURE" 

1487 REN DOWN CRSR 

1488 IF NT = "DRAGONS" AND P~1 THEN P=0:B = 
1:RETURN 

i490 PRINT ;PRINT 'YOU FAILED AND ARE IN 
PRISONED FOREUER";END 
1500 GOTO 1380 
1510 RETURN 

1610 PRINT "YOU ARE ON the BARON ; S LAND. 
BE CAREFUL IN the DISTANCE LIE THE "; 
1615 PRINT "SCARED HILLS OF ANGlESARK" 
1620 RETURN 

1630 PRINT 'THE DARK FOREST SURROUNDS YO 
U ITS GROTESQUE FORNS SEEN 

1635 PRINT 'TO NODE ClOSER" i PR I NT "THIS 
PLACE IS FOIL' 
i640 GOSUB 3150 
1650 RETURN 

1660 PRINT 'YOU ARE BY THE SIDE OF A SNA 
lL STREAN YOU CAN FOLLOW THE RIUER 
1665 PRINT ' BANK BOTH EASTAND WEST OR Y 
OU CAN RETREAT TO THE NORTH' 
i670 RETURN 

1680 PRINT 'H TWISTING TRACK CUTS THROUG 
H THE TANGLED BUSHES THIS IS "; 

1685 PRINT 'WILD BOAR".PRINT 'COUNTRY" 
1690 RETURN 

1700 PRINT 'you ARE BESIDE A FAST FLOW IN 
G RIUER A BRIDGE GUARDED BY A "’ 

1705 PRINT 'GREEDY TROlL lIES TOTHE SOUT 
H YOU NUST GUESS THE. FEE THAT THE ' ; 
1707 PRINT "BEAST CHARGES TO CROSS" 
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1710 INPUT F: IF F>INTf.40*RNDC 1 ] 3+20 THEN 
GOTO i720 

1715 PRINT ' HE SCORNS YOUR TINY SUN AND - 
CHASES YOU AWAY":RETURN 
1720 IP NC2 3~F>0 THEN GOTO 1730 
1725 PRINT 'YOU GUESSED RIGHT BUT CANNOT 
PAY THE TOLL BE ON YOUR WAY" 
i727 RETURN 

1730 PRINT:PRINT 'THAT IS CLOSE ENOUGH, 

CROSS NOW 

i740 MC2D--MC2D--F 

1750 RETURN 


The vital bridge location. If the adventurer wishes to 
complete the adventure, he must find some way 
across this bridge. If he offers the wrong amount, he is 
chased away by the troll that guards the bridge. 


1850 PRINT BEFORE YOU IS THE MYTHICAL C. 
ASTLE OF DIAMONDS DO NOT 

1853 PRINT 'BEL I EOF. YOUR EYES UIHAT YOU 
SEE BEFORE YOU IS AN ILLUSION CAST 
1855 PRINT'BY THE MOST POWERFUL OF ALL": 
PRINT'MAGICIANS. ..THE WARLOCK OF THE. 

1857 PRINT "DARK":PRINT "FOREST" 
i860 GOSUB 3150 
1870 RETURN 

1880 PRINT "BEFORE YOU LIES THE MAGNIFIC 
ENT WATCH TOWER OF PENDRAGON, A '; 

1885 PRINT "SPLENDID GOTHIC MONUMENT" 
i890 GOSUB 3150 
1900 RETURN 

1910 PRINT "YOU ARE AT THE ENTRANCE TO A 
MYSTERIOUS CAUE THE SUN ALWAYS SETS'; 
1915 PRINT ’ TO THE RIGHT OF THE CAUE 
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i920 RETURN 

1930 PRINT 'FROM YOUR POSITION IN 0 SMAL 
L MARKET SQUARE YOU CAN SEE SOME , 
1935 PRINT 'STOCKS AND A PI LLORY" PR I 
NT "0 REMINDER OF WHAT NILE HAPPEN TO"; 
1937 PRINT " YOU IFYOU FAIL- 
1940 RETURN 


The Final Confrontation 

The adventurer has crossed the bridge and has found 
his or her way into the cave. There the Creature must 
be faced, the final hurdle to overcome. This part of the 
program puts the adventurer in a final battle where the 
attributes are tested against those of the Creature. 

Lines 1960 to 2020 announce the Creature’s arrival. 

Lines 2200 to 2240 give the adventure with an 
attribute less than the random figure R, a chance to 
escape. If the timer is less than 500 when he or she 
presses a key, then he or she is taken back to location 
14, over the other side of the bridge. 


1950 REM xxx END OF GAME xxx" 

i960 PRINT “IT IS UERY DARK INSIDE THE C 

AUE" 

1970 FOR TD=1 TO 1500:NEXT TD:PRINT "YOU 
HEAR A LOUD NOISE" 

1980 GOSUB 3320 

1990 PRINT "ITS TH-TH-THE C-C-C-CREATURE 
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2000 FOR TD=1 TO 1000:NEXT TD 
2020 R=INTC8xRNDCl 13+1 

2200 PRINT "IF ANY OF YOUR ATTRIBUTES AR 
E LESS THAN";R; "THEN RUN AWAY 8 
2205 PRINT:PRINT "xxxxxx PRESS ANY KEY T 
0 CONTINUE xxxxxxx" 

2210 FOR LL = 1 TO 500:GET A* 

2220 IF A$<>"" THEN PRINT"PHEW8 YOU MADE 
IT BACK OUER THE BRIDGE":B=14:GOTO 250 
2230 NEXT 

2240 IF MCI 3<R OR MC23<R OR MC3KR THEN 
PRINT ”sj': GOTO 2310: REM CLR SC.RN 


The battle now begins in earnest. Firstly, the 
Creature's attributes are given values. Notice how two 
of the attributes have a very good chance of being 
above the adventurer’s start values. The money that 
the adventurer starts with has a good chance of being 
higher than the Creature’s but, it has to be 
remembered that the adventurer has to pay a large 
proportion over to the greedy troll at the bridge. 
Therefore the adventurer, after several attempts, will 
realise that he has to move around the adventure to 
gain extra strength, wealth and magic so that he can 
be a reasonable opponent for the Creature. 


2250 PRINT "LET THE FIGHT BEGIN 
2255 FOR TD=1 TO 1000:NEXT TD 
2260 PRINT "sC'fREM CLR SCRN 
2270 DIM KC33 

2280 KC1 3 = I NT C50XRNDC13 3+11 
2230 K C 2 3 --1 NT C 45xRND C1 3 3+16 
2300 KC3 3 = INTC12xRNDC13 3+1 
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2310 FOR Y=1 TO 3 

2320 FOR T=1 TO 1000:NEXT T 

2330 PRINT "Ss;; 

2331 REN HONE CRSR CLR SCRN 

2335 PRINT "QQJHE BOTTLE STARTS. . PR IN 

T "QQRQUND: ";Y 

2336 REN DOWN CRSR 

2340 PRINT " QQQ111H LJNAN: ';NCY3 

2341 REN DOWN CRSR RIGHT CRSR 
2350 PRINT " QQQ3]3C REATURF; ";KCY3 
2360 IF INTC10*RNDC13 3“3 THEN 2380 
2370 NCY 3=NCY 3-1 

2380 IF INTC10XRNDC133=7 THEN 2400 

2390 KC Y D--KCY 3-1 

2400 IF NCY 0<1 THEN 2560 

2410 IF KCY D<1 THEN 2520 

2420 GOSUB 3150 

2510 GOTO 2330 

2520 FOR T=1 TO 100:NEXT T 

2530 PRINT "l' :PRINT " QQQQQQQ] 33333333 1Y 

OU WINS SSI":FOR TD = 1 TO 2000:NEXT 

2535 REN CLR SCRN DOWN CRSR RIGHT CRSR 

2540 GOSUB 3320 

2550 U=U+1:IF U=2 THEN 3190 

2555 IF U<>2 THEN NEXT Y 

2560 FOR T=1 TO 1000:NEXT T 

2570 PRINT "s.]': PR I NT “ QQQQQQQ1 111 1 1111 IT 

HE CREATURE WINS S S" 

2575 REN CLR SCRN DOWN CRSR RIGHT CRSR 

2580 GOSUB 3320 

2590 W=W+1:IF W=2 THEN 2910 

2600 NEXT Y 

2610 END 


The battle itself consists of a loop where all of the 
three attributes of the Creature and the adventurer are 
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tested. The screen is cleared, the values of the 
attribute under battle, displayed and the battle 
begins... 

One is deducted from each of the attributes unless a 
certain number is generated by the RND function. If the 
number three is generated by the RND function, then 
the program jumps a line and nothing is deducted from 
the player’s attribute. If the number seven occurs, the 
same applies to the Creature’s attribute. This process 
continues until either the player’s or the Creature’s 
attribute reaches zero. When this happens the 
program goes to a routine that prints up who has won, 
pauses the program and adds one to the round win 
counter. If the counter reaches two, then the battle has 
ended and the program goes to the appropriate end 
game routine. There are two of these short routines, 
one for the player and one for the Creature. 


Win Or Lose 

When it comes down to it, one of these two endings 
must occur. An ending to a game is as important as any 
other part of the game. If the adventurer fails, you must 
give him or her the enthusiasm to have another try. If 
they win, well they have worked hard and deserve a 
little more than a ‘Well Done’ and the game stopping. It 
would be unfair to end the game in such a way that the 
player finds it an anti-climax. At the other extreme, you 
must not get so involved with the winning ending, that 
may be only only seen once every nine or ten games, 
that it starts to assume giant proportions and takes up 
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much valuable memory space. 

We think our endings have struck a balance between 
the two extremes. 


2910 REM xxx END OF GAME xxx 
2920 FDR T = 1 TO 24:PRINT " 

2930 NEXT T 

2940 PRINT ' YOU HAUE BEEN BEATEN" 

2950 GOSUB 3150 

2960 PRINT ' YOUR STRENGTH CQULD" 

2970 GOSUB 3150 

2980 PRINT " NOT HOLD OUT AS YOU' 

2990 GOSUB 3150 

3000 PRINT ' TRIED IN UAIN TO FIND" 
3010 GOSUB 3150 

3020 PRINT ' THE SECRETS THAT THE" 

3030 GOSUB 3150 

3040 PRINT ' DARK FOREST HOLDS..." 

3050 FOR C=1 TO 10 
3060 GOSUB 3150 
3070 NEXT C 
3080 GOSUB 3150 

3090 PRINT " BUT DO NOT GIUE UP. AORTA 
l" 

3100 GOSUB 3150 

3110 PRINT ' POR YOU MAY STILL SUCCEED 
3120 GOSUB 3150 

3130 PRINT ' TO TRY AGAIN PRESS ANY KE 
V" 

3140 GET At:IF A* = "" THEN GOTO 3140 
3145 RUN 
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Our ending if you lose is quite simple but does tempt 
the player into having another go. The random notes 
are called up by the GOSUB 3150. 

Our winning ending is a little more interesting. A text 
message is printed up on the screen at first, followed 
by the player being given an ‘official’ title. 


3130 REM *** YOU WIN xxx 
3200 PRINT GOSUB 3150: REN CLR SC.RN 
3210 PRINT " QQQx xxxxxxxxxxxxxx WELL DONE 
xxxxxxxxxxxxxx"?REM DOWN CRSR 
3220 PRINT:PRINT " YOU HAUE CONQUERED T 
HE eJDARK FOREST' : REN BLOCK 

3240 PRINT: PRINT ' £_Y0U OUTWITTED YOUR EN 
ENIES, EXPLORED THEFOREST AND FOUND ''; 

3241 REN WHITE 

3245 PRINT 'THE CREATURE" 

3250 PRINT:PRINT " YOU HAUE RID THE COUN 
TRY OF 0 GREAT THREAT AND YOU SHALL " 

3255 PRINT 'BE REWARDED" 

3260 PRINT:INPUT "WHAT IS YOUR NANE";NAT 
3270 PRINT "s_; :POR T = 1 TO 24: PRINT: NEXT: 
PRINT "rfARISE, SIR ";NAT 
3275 REN CLR SCRN YELLOW 

3280 FOR T = 1 TO 20: PRINT: FOR TD--1 TO 200 
:NEXT:NEXT 

3290 FOR TL = 15 TO 1 STEP -1:P0KE UO,T|_:P 

OKE AD,18:POKE SR,132:POKE WL.17 

3300 POKE HF,22:POKE LF,227:P0R DD=1 TO 

500:NEXT:NEXT 

3305 POKE UO , 0: POKE W'l,0 

3310 GOTO 3310 
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The remaining lines contain the sound routines and the 
statement that is displayed when you are unfortunate 
enough to run into Grendal the Hermit. Sometimes it is 
convenient to put PRINT statements such as this into a 
subroutine, such as when the statement or the 
accompanying logic is particularly long and won’t 
conveniently fit into the Commodore 64’s 
80-character program line limit. 


3320 POKE UO,15:POKE AD,18: POKE SR,132: P 
OKE WL,33 

3325 HX = INTC4*RNDC1D D+2:LX=INT C150XRNDC1 
DD+75 

3330 POKE HF,HX:POKE LF,LX 
3340 FOR TD=1 TO 550:NEXT 
3345 POKE HF,0:POKE LF,0 

3350 RP-RP+1:IF RP>6 THEN RP=0:POKE UO,0 
:POKE WL ,0:RETURN 
3360 GOTO 3325 

3370 POKE 00,15:POKE HD,9:POKE UL,17 
3380 POKE HF,17:POKE LF,37:F0R TD=1 TO 5 
00:NEXT:POKE 00,0:POKE WL,0:RETURN 
3390 POKE 00,15:POKE AD,17:P0KE SR,24:P0 
KE UIL , 129 

3400 POKE HF,25:POKE LF,177:P0R TD=1 TO 
75:NEXT TD:POKE 00.0:POKE UL,0:RETURN 
3410 PRINT:PRINT "YOU HAUE CONE ACROSS G 
RENDAL THE HERMIT" 

3420 PRINT "YOU HAUE AWOKEN HIM HE IS 
NOT PLEASED": E -^40+1 NT C 50XRND C1 D D 
3430 RETURN 


We’ve now completed an analysis of an adventure 
Phew! As we already have discussed, there is more 
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than one style of adventure. In the next chapter we 
consider a different but no less popular type of 
adventure which provides quite a marked contrast 
with The Dark Forest’. 

Finally, in this chapter, we have The Dark Forest’ 
listing in full: 


10 RENXXXXXXXXXXXXXXXXXXXXXXX 

20 RENxxx THE DARK FOREST xxx 

30 RENXXXXXXXXXXXXXXXXXXXXXXX 

50 GOSUB 2630 

55 POKE 53280,0:POKE 53281,11 

60 PRINT "sT:PRINT " QQQQQQQQQ]3 1 33333 1 3J 

leJHE DARK FOREST" 

65 REN CLEAR SCREEN DOWN CURSOR RIGHT CU 
RSOR BLACK 

70 PRINT " QQ33333333Ip P RESS ANY KEY TO S 
TART" 

75 REN CURSOR DOWN RIGHT CURSOR BLACK 
80 GOSUB 3320 

90 GET Af:IF A*=" THEN 90 

100 PRINT " QQ 3.3 3 3 3 3 3EY OU HAUE DARED TO E 

NTER..."* FOR DD = 1 TO 1000:NEXT DD 

105 REN DOWN CRSR RIGHT CRSR WHITE 

110 PRINT • QQ133im311]33]G OOD LUCK" 

115 REN DOWN CRSR RIGHT CRSR 

120 FOR TD=1 TO 1000:NEXT TD 

130 FOR TD = 1 TO 1500:NEXT TD: PRINT 'sj': R 

EN CLR SCRN 

140 GOSUB 3370:GOSUB 730:PRINT 

150 IF N$="N" AND ZCB,13<>0 THEN B=ZCB,1 

3 

160 IF N$ = "S" AND Z C B , 2'3 < >0 THEN B = ZCB,2 
3 
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170 IF N$="E" AND ZCB.3DO0 THEN B=ZCB,3 
I 

180 IF N*="W" AND ZCB ,4 300 THEN B=ZCB,4 
1 

190 IF NiO'R" THEN 230 

200 CS=INTCCB+10D/10D:PRINT "UP.K. YOU 
CAN SLEEP HERE BUT IT WILL" 

201 REN RIGHT C.RSR 

205 PRINT "COST YOU";CS;"COIN/S FOR EUER 

V HOURS UNINTERRUPTED REST" :PRINT 

210 INPUT "HOW MANY HOURS" ;H 

215 IF H<1 OR NC2D~CH*CSD<0 THEN PRINT " 

TRY AGAIN SLEEPY"?".GOTO 210 

220 NC2D=NC2]-CH*CSD:NC1D=NC1D+H:PRINT " 
<;QQQQQQ] ] 11111U11] 1 IZ ZZZZZZZZZZ" 

221 REN CLR SCRN DOWN CRSR RIGHT CRSR 

222 FOR DD = 1 TO 500*H:NEXT DD:PRINT "sJ’: 
GOSUB 730:GOTO 250:REN CLR SCRN 

230 IF CHK=B THEN PRINT "CANNOT NOUE IN 
THAT DIRECTION":GOSUB 3150:GOTO 260 
240 CHK=B 

250 IF B>10 THEN GOTO 254 

252 ON B GOSUB 980,1000,1020,1170,1200,1 

250,1270,1290,1310,1420:GOTO 270 

254 B--B-10: ON B GOSUB 1610,1630,1660,168 

0,1700,1850,1880,1910,1930,1950:B^B+10 

260 IF ZCB ,5 DO0 THEN 300 

270 GOSUB 790 

280 PRINT:INPUT 'WHAT NOW":NT:N$=LEFT*CN 
4,1 D 

290 GOTO 130 

300 REN '*:*:* NONSTER/FI G'HT xxx 
310 NN=ZCB,5D:PRINT 

320 IF NN=1 THEN PRINT "A BAND OF 10 ROB 

BERS SEIZE YOU" : E~40 

330 IF NN =2 THEN GOSUB 3410 
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340 IF [IN=3 THEN PRINT "SIR RUFUS OF GAS 
CONY ATTACKS . . .■':E=20 

350 IF NN=4 THEN PRINT "A FEROCIOUS BEAR 
POUNCES":E-20 

360 IF NN=5 THEN PRINT "YOU HEAR THE WAR 
CRY OF THE BLACK KNIGHT":E=60 
370 INPUT "WILL YOU FIGHT OR RUN"; Fi: F$ = 
lEFT$CF$,13 

380 PRINT: IF F$="F" THEN 410 

390 IF RNDC13>0„4 THEN INPUT "WHICH DIRE 

CTION, COWARD"; N$: NCI 3=NC 1 3-4: GOTO 130 

400 PRINT "NOS YOU MUST STAND AND FIGH 

T" 

^05 PRINT "YOU LOSE 10 STRENGTH": NC1 3=HC 
1 3-10 

410 REN xxx FIGHT xxx 

420 ZCB ,5 3=0:RO = INTC 19*RNDC1 3 3+1 

430 IF ZCRO ,5 3=0 THEN ZCRO,5 3=HN:GOTO 44 

0 

435 IF ZCRO ,5 300 THEN GOTO 420 

440 PRINT "WHICH ATTRIBUTE DO YOU WISH T 

0 FIGHT WITH CENTER WORD 3" 

445 INPUT A$ 

450 IF A$="STRENGTH" THEN A=1 
460 IF A$="NONEY" THEN A=2 
470 IF A$ = “NAGIC." THEN A=3: E-INTCE/10 3 
480 IF A = 1 AND NCI 3<1 THEN 2910 
490 IF A =2 AND NCA3C1 THEN PRINT "CANNOT 
USE HONEY":GOTO 440 

500 IF A =3 AND HCA3C1 THEN PRINT "CANNOT 
USE NAGIC" 

510 PRINT 'Ll:': IF N C A 3 >60 THEN DD=NCA3-60 
:NCA 3=60 

515 REN CLEAR SCREEN 

530 PRINT " sQ] 3.3 3 3 3 3 3 3 RzT HE BATTLE CONNE 
NCES . . " 
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535 REM CLR SCRN DOWN CRSR RIGHT CRSR RE 
0 ON LT BLUE - 

540 PRINT " QQ Y OU: 

541 REM DOWN CRSR PURPLE YELLOW 

545 FOR TX = 1 TO MCA 3:PRINT "q";:NEXT 

546 PRINT 

548 PRINT " QQttF NFMY: 

550 FOR XT=1 TO E:PRINT ”q";:NEXT 
560 GOSUB 3330 

570 REM xxx MAIN FIGHT LOOP xxx 
580 IF I NT C7xRNDC13 3-4 THEN GOTO 600 
530 E=E-1 
600 GOSUB 3330 

610 IF INTC3XRNDCI! 3 = 1 THEN GOTO 630 
620 MCA 3~MCA 3 -1 
630 GOSUB 3330 

640 IF E>0 AND MCA3>0 THEN GOTO 530 

650 IF MCAKl THEN GOTO 2910 

660 PRINT ' QQYOU WINUQL." : REM DOWN CRSR 

WHITE 

670 GOSUB 3390 

680 ER = INTC40xRNDC1 33+1:BU = I NTC7xRNDC13 3 
+1 

690 IF BU<4 THEN PRINT "YOU GAIN”;ER;"ST 
RENGTH'LMCl 3=MC1 3+ER+DD 

700 IF BU<7 AND BU>3 THEN PRINT "YOU GAI 
N" ; ER; MONEY UNITS": MC2 3--MC2 3+ER+DD 
710 IF BU=7 THEN ER=INTCER/103+1:PRINT " 
YOU GAIN";ER;"MAGIC SPELLS" 

215 IF BU=7 THEN MC3 3-MC3 3+ER+DD 

720 FOR T = 1 .TO 1500: NEXT T: PRINT "^.":GOT 

0 250:REM CLEAR SCREEN 

730 REM xxx ATTRIBUTES xxx 

740 MCI 3--MC1 3-1: IF MCI 3< 1 THEN 2910 

750 PRINT "STRENGTH: INTCMC133 

760 PRINT "MONEY: ";MC23 

770 PRINT "MAGIC: :MC33 
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780 RETURN 

790 IF RNDC1D>0.8 AND BOl AND B<>15 AND 
BO20 THEN PS=INTC5xRNDC 1 3 3+1: GOTO 810 
300 RETURN 

810 IF PS=1 THEN PRINT " AN OLD GLASS BO 
TTLE IS WITHIN REACH. IT IS COHERED"; 
815 IF PS=1 THEN PRINT " IN COBWEBS" 

820 IF PS -2 THEN PRINT " HERE IS A LARGE 
OAK CHEST. A WIERD"’PRINT "SIGN IS"; 
825 IF PS=2 THEN PRINT " CARUED ON THE L 
ID- 

830 IF PS =3 THEN PRINT " A UELLUN BOOK L 
IES BY YOUR FEET" 

840 IF PS =4 THEN PRINT ' A GOLD LOCKET 0 
N A CHAIN IS CLOSE TO"SPRINT "YOU" 

850 IF PS =5 THEN PRINT " BEFORE YOU IS A 
BOX OF EXOTIC FRUIT- 
860 REN xxx POSSESSIONS xxx 
870 INPUT "DO YOU WANT TO OPEN IT";OP$ 
880 PRINT: IF LEFTiCOPt, 1 K>"Y" THEN RETU 
RN 

885 IF RNDC1K0.7 THEN GOTO 900 

390 PRINT "AN EUIL ORC LEAPS OUT AND ATT 

ACKS YOU" 

394 FOR TT=1 TO 1000:NEXT TT:PRINT "AFTE 
R A BRIEF STRUGGLE IT RUNS AWAY" 

896 PRINT ' LEAUING YOU WEAK AND TIRED":N 
f 1 3~NC 1 3-CNC1 D/4D:PS=0 

900 IF PS=1 THEN PRINT "A LARGE CLOUD OF 
SNOKE APPEARS THE":PRINT "ESSENCE"; 

905 IF PS=1 THEN PRINT " GIUES YOU NEW S 
TRENGTH AND LIFE" : NCI 3--NC 1 3+8 
910 IF PS=2 THEN PRINT "NUCH TREASURE IS 
CONTAINED IN THE CHEST- 
915 IF PS =2 THEN PRINT "VOU ARE A RICH N 
AN" : NC2 3--NC2 3+35+1 NT C 15xRNDC 1 3 3 
920 IF PS=3 THEN PRINT "IT CONTAINS 6 PO 
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kJERFUL SPELLS":MC3 3 -MC3 3+6 

930 IF PS =4 THEN PRINT IT HAS A SHALL P 

OTRAIT OF THE BEAUTIFUL'' 

935 IF PS =4 THEN PRINT "PRINCESS CAROL IN 
E IT IS QUITE UALUABLE":MC23=MC2 3+10 
940 IF PS =5 THEN PRINT "YOU ARE SO TEMPT 
ED THAT YOU EAT SEUERAL" 

945 IF PS =5 THEN PRINT "THEY ARE DELICIO 
US AND ADD TO YOUR STRENGTH" 

94? IF PS =5 THEN MCI3=MC13+12 
950 PRINTS PRINT "xxxxxx PRESS ANY KEY TO 
CONTINUE xxxxxxx" 

960 GET A$: IF A*="" THEN 960 

965 PRINT "s.": RETURN: REM CLEAR SCREEN 

970 REM xxx LOCATIONS xxx 

980 PRINT "VOU ARE IN A SMALL CLEARING I 

N THE DARK FOREST YOU CAN PROCEDE IN"; 

985 PRINT • ANY DIRECTIONTHAT YOU NISH" 

990 RETURN 

1000 PRINT "YOUR UI EH FROM OAKRIDGE HILL 
IS :PRINT "MAGNIFICENT, YOU CAN SEE"; 
1005 PRINT ' GRENDAL THE HERMIT'S i_OD 
GE IN THE DISTANCE" 

1010 RETURN 

1020 PRINT "YOU HAUL FOUND YOURSELF IN A 
PEACEFUL FIELD";PRINT 
1030 PRINT "THERE IS A SMALL EMPTY HELL 
NEXT TO YOU DO YOU WANT TO GO DOHN IT"; 
1032 PRINT ' fY/N 3 
1035 INPUT Q* 

1040 IF Qi="N" THEN PRINT ALL RIGHT STA 
Y IN THE FIElD THEN" :• RETURN 
1050 IF INTC3XRNDC133=1 THEN 1120* 
i 060 POKE 53280,0: POKE 53281 ,0: PR INT "s_" 

:REM CLEAR SCREEN 
1070 FOR XX-1 TO 39 
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1080 PRINT TABCXXD "EL*": FOR TD = 1 TO 100: 
NEXT TD:REN WHITE 
1090 NEXT XX 

1095 PRINT " QQQQQ II3I3I33333333 .IS PLASH I 6 
':FOR TD = 1 TO 1000:NEXT TD 

1096 REN DOWN CRSR RIGHT CRSR 
109? POKE 53280,0:POKE 53281,11 

1100 PRINT " sQQQQQH OW SILLY OF NE, I THO 
UGHT IT WHS EMPTY" 

1101 REN CLR SCRN DOWN CRSR 
1105 NClD = 10:!1C2D = 10:riC3]--l:B = l 

1110 PRINT:PRINT "YOU DO MANAGE TO GET 0 
UT, BUT YOU LOSE MUCH MONEY AND STRENGT 
H" 

1115 GOTO 1150 

1120 PRINT:PRINT "A SMALL NICHE IN THE W 
ALL HIDES A GOLD" 

1125 PRINT "FIGURE, THE RAM OF ANAG" 

1130 PRINT 'CARUED ON THE BASE IS THE WO 
RD yGRANDOSEJ'; REM LT RED WHITE 
1135 PRINT ’THE FIGURE IS UALUABLF. LOOK 
AFTER IT" 

1140 p = i; MC33--MC33+1: MC2 D~MC2 3+5 

1150 PRINT:PRINT xxxxxx PRESS ANY KEY T 

0 CONTINUE xxxxxxx" 

i160 GET A*:IF A*="" THEN GOTO 1160 
1165 GOSUB 730:RETURN 

1170 PRINT the BARON’S HOUSE IS NEAR BY 
YOU CAN HEAR MUSIC..,,.,,," 

1190 RETURN 

1200 PRINT "YOU ARE IN A DAMP HUT WITH A 
LEAKY ROOF A MUSTY SMELL LINGERS". 

1202 PRINT ' AND THERE IS ANOTHER R 

OOM TO THE RIGHT" 

1210 FOR TD -1 TO 1500:NEXT TD 
i220 GOSUB 3150 
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1230 PRINT "WHAT'S THIS? A SHALL DOOR IN 
FRONT OF YOU CN3" 

1240 RETURN 

1250 PRINT "AROUND YOU IS A SPARSLEY FIL 
LED STORE ROOH THIS IS A DEAD END" 
1260 RETURN 

1270 PRINT "YOU STAND IN THE HIDDLE OF B 
ERRY HAHLET IT IS UERY QUIET THE 
1275 PRINT "PLACE SEEHS DESERTED" 

1280 RETURN 

1290 PRINT "YOU ARE ON A GRASSY HILL SLO 
PING DOWNWARDS INTO A GALLEY"; 

1295 PRINT " A SHALL HAHLETLIES AT THE 
NORTHERN END" 

1300 RETURN 

1310 PRINT " YOU ARE STANDING OUTSIDE A 

WOODCUTTER'SHUT ENTER AT YOUR OWN "; 

1315 PRINT "PERIL":GOSUB 3150 

1320 PR I NT;PR I NT "TYPE IN RIGHT CODE TO 

ENTER HUT":INPUT ET;PRINT 

1330 Ft ="IUORYHAGICSILUEGRENDRUFUSDIAHOB 

ERRYBARON" 

1340 FOR T = 1 TO INTC8*RNDC 11.1+1 : FFt=HIDt 
f Ft,T*5-4 ,5 3;NEXT T 

1345 IF LEFTt CEt ,5 3 “FFt OR f. Et = "DRAGON" 
AND P = 1 ] THEN 1360 

1350 PRINT "Ypij HAUE USED THE WRONG CODE 
YOU HAUE BEEN CHASED AWAY BY": 

1355 PRINT " THE WOODSHAN INTO ANOTHER 
PART OF THE FOREST' 

1357 B = INTf 3XRNDC1 3 3 + 2: HC1 3+--HC1 3-8: RETUR 
N 

1360 PRINT "CORRECT CODE ?1 ENTER HUT BY 
HEADING 'N'":RETURN 
i370 PRINT Nt = "N":RETURN 
i420 PRINT "s_' : POKE 53280,0. POKE 53281,0 
:GOSUB 3320.REH ClR SCRN 
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1430 FOR T=1 TO 1000:NEXT T:POKE 53280,0 
:POKE 53281,11 

1440 PRINT ' QCLYOU FELL INTO 0 BEAR TRAP 
AND WERE CAUGHT BY THE BLACK"; 

1445 PRINT ' KNIGHT' 

1450 FOR T = 1 T.0 1000: NEXT T: PRINT "HE HA 
S IMPRISONED YOU" 

i460 INPUT "WHAT NOW';N*:IF N£<>“GRANDOS 
THEN 1480 

1463 PRINT "CLOSE, BUT WRONG , YOU SHOUL 
D HAUE THOUGHT ABOUT THE"; 

1465 PRINT ' FIGURE'S NAME":PRINT "THE R 
AM OF ANAG„„„THE ANAG RAM" 

1470 IF N*= "DRAGONS" AND P = 1 THEN G’OSUB 
SOUND:PRINT "s 71 REM CLR SCRN 

1480 IF N*-'DRAGONS AND P=1 THEN PRINT 
QQQQQ11111T HF MAGIC WORD 3 S ' 

1481 REM DOWN CRSR RIGHT CRSR 

1482 IF N$<>' DRAGONS" THEN 1490 

i485 IF P-1 THEN PRINT"QYOU ARE FREE AGA 
IN, BUT YOU LOST THE GOLD FIGURE" 

1487 REM DOWN CRSR 

1488 IF N*="DRAGONS" AND P--1 THEN P=0:B = 
1:RETURN 

1490 PRINT :PRINT "YOU FAILED AND ARE IM 
PRISONED FOREUER":END 
i500 GOTO 1380 
1510 RETURN 

1610 PRINT "YOU ARE ON THE. BARON'S LAND, 
BE CAREFUl IN THE DISTANCE LIE THE 
1615 PRINT "SCARED HIlLS OF ANG'LESARK” 
i620 RETURN 

1630 PRINT THE DARK FOREST SURROUNDS YO 
U ITS GROTESQUE FORMS SEEM ' ; 

1635 PRINT "TO MOUE CLOSER": PRINT "THIS 
PLACE IS EUIL" 

1640 GOSUB 3150 
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1650 RETURN 

1660 PRINT ’VOU ARE BY THE SIDE OF N SUN 
lL STREAH vou CHN FOlLOUJ THE RIDER " ; 
1665 PRINT ' BHNK BOTH EHSTHND NEST OR Y 
OU CHN RETREAT TO THE NORTH' 
i670 RETURN 

1680 PRINT A TUI STING TRACK CUTS THROUG 
H THE TANGLED BUSHES THIS IS ; 

1685 PRINT 'UILD BOAR", PRINT COUNTRY" 
i690 RETURN 

1700 PRINT VOU ARE BESIDE A FAS r FLOW IN 
G RIDER A BRIDGE GUARDED BY A : 

1705 PRINT GREEDY TROlL lIES TOTHE SOUT 

H YOU MUST GUESS THE FEE THAT THE U 
1707 PRINT 'BEAST CHARGES TO CROSS' 

1710 INPUT F;IF F>INrr40*RNDr103+20 then 
GOTO i720 

1715 PRINT HE SCORNS VQUR TINY SUN AND 
CHASES YOU AUAV" :: RETURN 
1720 IP H C 2 T-F>0 THEN GOTO 1730 
i725 PRINT VOU GUESSED RIGHT BUT CANNOT 

PAY THE toll BE ON YOUR UAY' 

i727 RETURN 

i730 PRINT,PRINT THAT IS ClOSE ENOUGH , 
CROSS NOU" 

1740 fir2 j-HC2 } -F 
1750 RETURN 

1850 PRINT 'BEFORE VOU IS THE MYTHICAL C 
ASTlE OF DIAMONDS ' DO NOT ' : 

1853 PRINT BElIEDE YOUR EVES UHAT YOU 
SEE BEE ORE YOU IS AN IllLJSION CAST • 
1855 PRINT BY THE HOST PQUERFUl OF AlL' : 
PRINT'HAGICIANS ,THE UARLOCK OP THE ; 
1857 PRINT ' DARK"PRINT P'ORPST 
i860 GOSUB 3i50 
1870 RETURN 
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i880 PRINT "BEFORE YOU lIES THE MAGNIFIC 
ENT NOTCH TONER OF PENDRAG'ON, A 
1885 PRINT 'SPLENDID GOTHIC MONUMENT" 
1890 GOSUB 3150 
i900 RETURN 

1910 PRINT "YOU ORE AT THE ENTRANCE TO A 
MYSTERIOUS CODE THE SUN ALWAYS SETS': 
1915 PRINT " to THE RIGHT OF THE CODE" 
1920 RETURN 

1930 PRINT ' FRO!1 YOUR POSITION IN Ft SHOE 
L MARKET SQUARE YOU CON SEE SOME "; 
1935 PRINT "STOCKS AND A p ILLORY"- P RI 
NT 0 REMINDER OF NHAT NILE HAPPEN TO' ; 
i932 PRINT ' YOU IFYOU FAIL' 

1940 RETURN 

1950 REM xxx END OF GOME xxx" 

i960 PRINT "IT IS UERY DARK INSIDE THE C 

HUE" 

1970 FOR T D T ■ TO 1500.NEXT IDs PRINT "YOU 
HEAR A LOUD NOISE" 
i980 GOSUB 3320 

i 990 PRINT ITS th-TH-THE C-OC-CREATURE 

2000 FOR TD ~1 TO 1000;NEXT TO 
2020 R-1 NT r8xRND C1 ]1+1 

2200 PRINT "IF AN+ Qf YOUR ATTRIBUTES AR 
E LESS THAN" :R; ' THEN RUN AWAY 2 9 
2205 PRINT-PRINT +«'*r<x PRESS ANY KEY T 
0 CONTINUE xxxxxxx" 

2210 FOR Li- ~ 1 TO 500. GET AT 
2220 IF ATO' THEN PRINT p HENS you MADE 
IT BACK ODER THE BRIDGE" ; B---1 4: GOTO 250 
2230 NEXT 

2240 IF MC1KR OR MC2KR OR M f 3 1 <R THEN 
PRINT "sE y. GOTO 2910. REM ClR SCRN 
2250 PRINT "lET THE FIGHT BEGIN,,.,....." 
2255 FOR TOT TO 1000; NEXT TD 
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2260 PRINT ?. • REN CLR SCRN 
2270 DIN K C 3 j 

2280 KC1 3=INTC50*RNDCID 3+11 
2230 K f 2 3 ~ I NTC 45*RNDC1 3 3+16 
2300 K C 3 3 -1 NT f. 1 2*RND Cl 3 3+1 
2310 FOR Y=1 TO 3 
2320 FOR T=1 TO i000.NEXT T 

2330 PRINT Ss' ; 

2331 REM HONE CRSR CLR SCRN 

2335 PRINT ' QQTHE BOTTLE STARTS PR IN 

T -QQROUNDr :Y 

2336 REN DOHN CRSR 

2340 PRINT GQQ111H UNAN; :NCY3 

2341 REN DOWN CRSR RIGHT CRSR 

2350 PRINT ' QQQ3]] CREATURE: ;KCY3 

2360 IF I NT C10xRND Cl 3 3"3 THEN 2380 
2370 NCYD-NCY3-1 

2380 IF INTC10*RNDC133=7 THEN 2400 

2390 KCY 3“KCY3 -1 

2400 IF Nf. Y 3< 1 THEN 2560 

2410 IF KCY 3<1 THEN 2520 

2420 GOSUB 3150 

2510 GOTO 2330 

2520 FOR T=1 TO 100:NEXT T 

2530 PRINT s.: r-PRINT QQQQQQQ1 111111 1 11 Y 

OU WIN! Ml": FOR TD-l TO 2000;' NEXT 

2535 REN ClR SCRN DOWN CRSR RIGHT CRSR 

2540 GOSUB 3320 

2550 0=0+1:IF 0=2 THEN 3190 

2555 IF U02 THEN NEXT Y 

2560 FOR T=1 TO 1000.NEXT T 

HE CREATURE WINS ! !" 

2575 REN ClR SCRN DOWN CRSR RIGHT CRSR 

2580 GOSUB 3320 

2590 W-~W+1. IF W=2 THEN 2910 

2600 NEXT Y 
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2610 END 

2620 REN xx* INITIALISE xxx 

2630 DIN N C 3 IN 01N ZC21,5D:DIN QC5,5] 

2640 NCI 3 -1 NT C 30XRND Cl] 1+21 
2650 NC23-INTC70XRNDC1D3+11 
2660 NC3 .1-INTC6XRNDC1 31 + 1 
2620 FOR A = 1 TO 20 
2680 FOR B-l TO 5 
2690 READ ZCA,B3 
2200 NEXT B,A 

2210 DATA 10,13.11 ,8,0,19,2.3.0,0 
2220 DATA 0,10,4,2,0,0,19,5,3,0 
2230 DATA 8,9,6,4,0,0 .0,0,5,0 
2240 DATA 2,8,10,0,0,2,12,1,0,0 
2250 DATA 5,11,0,19,0,0,0,0,0,0 
2760 DATA 9,0.17,1,0,3,0,13.0,0 
2770 DATA 1,0,14,12,0,0,2,15,13.0 
2780 DATA 11,18,16,14,0,17,0,0,15,0 
2790 DATA 0,16,0,11,0,0,20,6,0,0 
2800 DATA 4,0,9,10,0,18,0,0,0,0 
2850 B-l:.*-0 
2860 FOR A :: 1 TO 5 
2870 RO^INTC18*RNDC133+2 

2880 IF Z C RO.5 3 “0 THEN Z C RO „§> 3 ~A ;■ GOTO 28 
90 

2885 GOTO 2370 
2890 NEXT A 

2892 DO“54296■■ AD -54277; SR-54278: wi_=54276 
; HF = 54273.' lF ==54272 
2900 RETURN 

2910 REN xxx END OP DANE xxx 
2920 TOR T-1 TO 24.PRINT 
2930 NEXT T 

2940 PRINT VOU HAUE BEEN BEATEN" 

2950 GOSUB 3150 

2960 PRINT • YOUR STRENGTH COULD' 

2970 GOSUB 3150 
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2980 PRINT ' NOT HOLD OUT AS YOU' 

2990 GOSUB 3150 

3000 PRINT ' TRIED IN UAIN TO FIND' 
3010 GOSUB 3150 

3020 PRINT ' THE SECRETS THAT THE' 

3030 GOSUB 3150 

3040 PRINT ' DORK FOREST HOLDS,,..' 

3050 FOR C=1 TO 10 
3060 GOSUB 3150 
3070 NEXT C 
3080 GOSUB 3150 

3090 PRINT ' BUT DO NOT GIUE UP, NORTH 
l" 

3100 GOSUB 3150 

3110 PRINT FOR YOU NAY STILL SUCCEED 

3120 GOSUB 3150 

3130 PRINT ' TO try HGHIN PRESS HNY KE 
v 

3140 GET At- IF AT THEN GOTO 3i40 
3145 RIJN 

3150 POKE UO,15-POKE HD. 18;POKE SR,132:P 
OKE UfL , 33 

3155 HX-INT C40XRNDC1 3 .1+3-LX = I NT C100XRND C 
i 3 3+50 

3160 POKE HF,NX.POKE lF.lX.pOR TD"1 TO 7 
5;NEXT TD>POKE HF,0.POKE lF,0.RP-RP+1 
3165 IF RP >3 THEN RP -0, POKE Ul.,0.pOKE HD 
,0tPOKE SR,0.RETURN 
3170 GOTO 3155 

3180 PCJR T D r ” 1 tq 500, NEXT TQ-. RETURN 
3190 REN xxx +OU NIN xxx 
3200 PRINT " 5_" •. GOSUB 3i50. REN CLR SCRN 
3210 PRINT QQQ *xxxxxxxxxxxxxx NELL DONE 
xxxxxxxxxxxxxx "■REN DONN CRSR 
3220 PRINT,print YOU HHUE CONQUERED t 
HE glDHRK FOREST" REN BLACK 
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3240 PR I NT; PR I NT ' ETYQU OUTWITTED YOUR EN 
EfllES, EXPLORED THEFOREST AND POUND " ; 

3241 REM WHITE 

3245 PRINT THE CREATURE" 

3250 PRINT-PRINT YOU HADE RID THE COUN 
TRY OF A GREAT THREAT AND YOU SHALL 

3255 PRINT BE REWARDED 

3260 PRINT:. INPUT WHAT IS YOUR NAME" ; NAT 
3220 PRINT so ; FOR T = 1 TO 24 - PR I NT * NEXT * 
PRINT rfARISE , SIR 'N NAT 
3225 REM O l R SORN YElLOW 

3230 FOR T-l TO 20 - PR I NTFOR TD---1 TQ 200 
s.NEXT - NEXT 

3290 FOR TL~15 TO i STEP -1 - POKE UO,tl.R 

OKE AD ,18.- POKE SR , i 32.. POKE Wl , 1 2 

3300 POKE HF.22,POKE lF, 222; FOR DD-1 TO 

500;NEXT - NEXT 

3305 POKE UO ,0, POKE W.._ ,0 

3310 GOTO 3310 

3320 POKE 00,15.POKE AD,18;POKE SR.132.P 
OKE Wl , 33 

3325 HX = I NT f 4 XRND C 1 1 1+2 , lX = I NT C i 50*RND C. 1 
13+25 

3330 POKE HP , HX. POKE lF ,l.X 
3340 FOR TD~i T 0 550,NEXT 
3345 POKE HP,0,POKE lF.0 

3350 RP-RP'-i.IF RP >6 THEN RP-0. p OKE 00,0 
;POKE Wl ,0-RETURN 
3360 GOTO 3325 

3320 POKE 00.15 . POKE AD ,9.»0KE Wl. ,12 
3380 POKE +P, 12.POKE LF, 32 , KOR TD“1 TO 5 
00, NEXT ,. POKE 00 ,0, POKE W_ , 0. RE. r URN 
3390 P 0 K P 0 0 , 1 5. p 0 K E A D , 12 , p j K E. S R , 2 4 , p 0 
KE Wl , 1 29 

3400 POKE --F, 25. POKE fcF „ 1 22; :r 0R ~ 1 70 

25, NEXT td. POKE 00 ,0, D OKE W_ ,0. RETURN 
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3410 PRINT - PRINT YOU HAUE CONE ACROSS G 
RENOf!i THE HERMIT" 

3420 PRINT YOU HHUE AWOKEN HIM HE IS 
NOT PLEASED' • E-40+INTT50XRNDC13.1 
3430 RETURN 
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CHAPTER THREE 

Moving on from our first adventure, we now have an 
adventure set around a less common scenario, a block 
of offices. The adventure requires you to collect the 
secret ‘Nielson Papers’, Nielson being the scientist 
who first managed to perfect the uranium substitute 
Syntheron 2. The company he works for is now making 
vast sums of money from this invention and rival 
companies just cannot wait to get their hands on the 
formula and manufacturing techniques described in 
these papers. You are employed by the fuel-giant 
Trithon Ltd to steal the papers and escape safely from 
the office block. 

To complete your task, you will need to find various 
pieces of equipment, keep yourself out of many traps 
and solve the complex problems placed around the 
adventure. Of course, the building is patrolled by 
security guards who shoot on sight. You are fortunate 
in that you are wearing a bullet-proof vest which will 
take quite a few shots before finally allowing the fatal 
round through. You are given a gun, told of your 
mission and transported to the front of the office 
complex. From there on the success of your mission is 
up to you, the Nielson Papers are your goal... 

Stirring stuff. The adventure is rather different in 
design and actual game play to the Dark Forest. You 
have a full range of commands that you must discover 
and use. I will not give these away. Suffice it to say 
they allow you to acquire objects, battle with guards 
and move around the adventure scenario (among other 
things). 

The descriptions of the locations are much shorter 
than in the previous adventure. Much of the adventure 
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is taken up with handling commands. There are around 
thirty of these. The computer allows quite a wide 
syntax to any commands. The best way is to 
experiment to find out which commands it accepts and 
which it refuses to understand. 

In many situations, the computer gives more help than 
a simple “I CANT DO THAT”, which can be so 
frustrating in adventures. If you find you are getting 
nowhere in the adventure, then have a look in the 
‘HELP!’ chapter. 

Certain areas of the program will now be discussed. 
The whole program is listed at the end of the chapter. It 
is a good idea to type the whole program in first and 
then return to the chapter for the discussion. 

The first area of the program to discuss is the 
initialisation routine. 


i0 REM XX* THE NIELSON PAPERS xxx 
20 REM xxx A TEXT ADUENTURE xxx 
25 PRINT "sJ‘ : POKE 53280,6: POKE 53281,8 
30 GOSUB 1730:GOSUB 1440 


Line 25 sets the screen and border colours and then 
the program displays the title page. 


1730 PRINT "s_;': NN$ = "<£THE NIELSON PAPERS" 

1735 REM CLR SCRN RED 

1740 PRINT " QQQQQQQ1111111111" :NN$ 

1745 REM DOWN CRSR RIGHT CRSR 
1750 FOR, TD = 1 TO 1000: NEXT TD 
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1760 print " QQnnna full scale text ad 

UENTURE" 

1790 RETURN 


Once the title page is displayed, the program then 
initialises, with the title page still displayed. All the 
arrays are dimensioned in line 1450. Most of the 
initialisation routine is concerned with filling the arrays 
with the data necessary for the game. 0$ is filled with 
the names of the 18 objects in the game. 1$ is filled 
with the descriptions of the 30 locations in the game 
while the array L is filled with the starting positions of 
the 18 objects. Array A is given the monetary values of 
the 18 objects. Array P contains the room logic. 

The other function performed is the defining of the four 
large strings used in the game. C$ contains all the 
names of the commands available in the game but only 
the first three letters of each. 0$ contains the first 
three letters of each object while D$ holds the 
direction string used when there is a locked door or 
blocked entrance in the adventure. P$ is what we call 
the ‘response string’. When you enter a command 
which the computer does not understand in any way, it 
will randomly choose one of the four responses to 
display on-screen. This removes the monotony of 
having the computer constantly repeat the same 
phrase every time you have trouble. 

The listing for the initialisation section follows. After 
that, we will take just a couple of sections from the 
rest of the program, and examine them in detail. 
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i440 REM xxx INITIALISATION xxx 
1450 DIM O*C18],L$C303,PC30,43,LC183,AC1 
81 

1460 FOR T=1 TO 18:READ OtCT3:NEXT 
1470 FOR T = 1 TO 30:READ LiCT ]:NEXT 
1480 FOR T = 1 TO 18:READ LCT 3:NEXT 
1490 DATA GUN,TORCH,COFFEE-MACHINE,SCRIB 
BLED-MEMO,POCKET-COMPUTER,GLOUES ,CUP 
1495 DATA STOOL,WIRECUTTERS 
1500 DATA MONEY,COIN-MACHINE,SILENCER,LA 
DDER,KEY,PAPER-CLIPS,ROPE,SECRET-PAPERS 
1505 DATA PAPERS 

1510 DATA THE MAIN ENTRANCE,THE RECEPTIO 
N AREA,THE DOCUMENT ROOM 
1515 DATA THE STAFF CANTEEN,THE DELIUERY 
ROOM 

1520 DATA A CORNER OF THE YARD NEXT TO A 
N ELECTRIFIED FENCE 

1524 DATA "THE ALLEY BEHIND THE COMPLEX, 
A CAR IS WAITING TO TAKE YOU AWAY" 

1530 DATA THE COMPUTER ROOM,THE MAINTENA 
NCE AREA,A DARK CORRIDOR 

1535 DATA THE RECORDS DEPT,AN UNTIDY OFF 
ICE 

1540 DATA THE TYPING POOL,THE RECREATION 
ROOM,A NARROW CORRIDOR 
1545 DATA A PLUSH CONFERENCE ROOM,AN UNL 
IGHTED OFFICE 

1550 DATA THE STRONGROOM NEXT TO THE U 

AULT,THE STEEL UAULT.THE ACCOUNTS DEPT 

1555 DATA THE EXECUTIUE WASHROOMS 

1560 DATA A COLD BARE ROOM,A DARK CORRID 

OR,A CLEAN NEW STOREROOM 

1565 DATA A LARGE CUPBOARD,A BRIGHT HALL 

WAY 

1570 DATA THE TELEX ROOM,A LIFT,THE DIRE 
CTORS BOARDROOM,A SPACIOUS OFFICE 
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1580 DATA 0 ,2,4,27 ,8,33,25,13,9,19,20,30 

,5,10,13,11,34,11 

1590 D$="NORTHSOUTHEAST WEST" 

1600 C$="GO MOUTAKGETSTEDROREACLICUTCHAO 
PEUNLFIRSHOWAIDRISEALOOWEACOriCALDEC" 

1605 C$=C$+"HELCLUQUIPUTHITFIGATTKIL" 
1610 0$="GUNTORCOFNEHCONGLOCUPSTOWIRMQNC 
OISILLADKEYCEIROPSECPAP" 

1620 P$="PARDON? WHAT? RUBBISH HREPHRAS 
E” 

1630 L=1:LC13=0:K=0:SA=10000:KY=0:GS=0 
1640 G1=INTC28*RNDC1 33+3:'IF Gl=28 OR G=7 
THEN 1640 

1650 DC=INTC6*RNDC133+5 

1660 FOR X = 1 TO 30:FOR Y=1 TO 4:READ PCX 
, Y 3: NEXT: NEXT 

1670 DATA 2,0,0,0,-1,1 ,4,0,0,0,2,0,0,10, 
9,2,0,15,6,0,0,0,5,0,0,0,0,0,15,24,0 
1675 DATA 21,20,8,13,9,4,0,9,1,0,27,14,1 
2,17,0,11,16,16,0,0,9,26,0,18,11,5,8 
1680 DATA 0,21,-1,23,12,26,22,12,15,0,19 
,20,18,14,0,-1,0,0,18,9,0,0,2,17,8,-1 
1685 DATA 0,17,-1,28,16,23,0,17,8,0,26,1 
2,0,0,0,27,6,14,0,24,11,-l,25,13,29,16 
1690 DATA 0,0,28,0,0,30,0,0,29,0,80,10,0 
,1 ,200,3,3,10,22,0,0,10,40,10,1,27 
1695 DATA 1000000,2 

1700 00=54296:WF=54276:AD=54277:SR=54278 
:HF=54273:LF =54272 
1720 RETURN 


The ‘what can I see’ and ‘What am I carrying’ routine: 


i 10 S=0:PRINT:PRINT "^YOU HAUE:“; 
115 REN LT GREEN 
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120 FOR D--1 TO 18: IF D=6 OR 0 = 9 OR D = 10 
OR D>14 THEN Ai = " ":GOTO 130 
125 AT =" A " 

130 IF S>0 AND CLCD 0 D=0 THEN PRINT TABC9 

]; 

140 IF LCD.1 =0 THEN PRINT AT; 0$CD ]: S=S+1 
150 NEXT D 
160 PRINT 

170 Z=0: PRINT “_YOU CAN SEE:", 

175 REM PURPLE 

180 FOR D=1 TO 18:IF D=6 OR D=9 OR D=10 
OR D >14 THEN A$ =" “:GOTO 190 
185 AT=" A " 

190 IF L C D ] =L AND Z>0 THEN PRINT TABC113 

200 IF LCD ]=L THEN PRINT AT;OTCD ]:Z=Z+1 
210 NEXT D 

220 IF Z =0 THEN PRINT "NOTHING MUCH" 


If you win ... 


1220 PRINT. PRINT' VOU LIERE 100% SUCCESSFU 
l IN YOUR MISSIONAND THE ORGANIZATION"; 
1225 PRINT "HAS KINDLY LET YOU KEEP THE 
OBJECTS YOU COLLECTED,..." 
i230 FOR T=1 TO 18.READ ACT]:NEXT J 
1240 FOR T=1 TO 18:IF LCT]=0 THEN PRINT 
0$CT ]; NORTH": P RINT ACT ]; "POUNDS 1 ' 

1250 NEXT T 

1260 PRINT “EXCEPT THE SECRET PAPERS" 
1270 FOR T = 1 TO 5000;NEXT T 
1280 GOSUB 2180;PRINT " QQ111111111111U EL 
l DONE f!!“ ,END 
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If you manage to escape but forget something ... 


1290 PRINTS PRINT "YOU'RE SAFELY AWAY BUT 
YOU DID NOT STEALTHE PAPERS "; 

1292 PRINT 'the ORGANIZATION IS NOT 
PLEASEDYOU PiAUE BEEN SENT BACK "; 
1294 PRINT "TO TRY AGAIN":FOR T=1 TO 30 
00.NEXT T:RUN 


If you fail miserably ... 


1300 FOR T = 1 TO 30001NEXT T;POR T = 1 TO 6 
: PR I NT:'NEXT SPRINT ' s ' 
i 305 POKE 53280,11. POKE 53281,0 
1310 GOSUB 2140:PRINT "r l xxxxx xx 

1315 REP1 YELLOW 


1320 

PRINT ' 

X 

X X 

X 

x" 
1330 

PRINT " 

X X X X 

xxxxx 

X 

x" 

1340 

PRINT " 

X 

X X 

X 

x" 

1350 

PRINT " 

X 

X X 

xxxxx 


1360 PRINT; p RINTiGOTO 1310 


Line 1580 gives all the starting values of the objects. It 
can be seen that object 1, the gun, is given a value 0. 
This means that the player is carrying the gun. When 
the program later accepts the player’s command to 
take an object, it will put the location starting position 
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of the object (held in the L array) equal to 0. If the item 
is dropped, the computer will give the object the value 
of the location the object was dropped in. There are 
then two routines which display what is in the same 
location and also explain what you are carrying. These 
routines are situated at lines 110 to 220. It seems now 
the best time to look closely at these routines which 
are displayed following the initialisation section. 

Briefly, with these routines the computer checks 
through the object location array and any object with 
the value 0 is displayed in the player’s inventory. Any 
object with the value equal to the location number the 
player is at (held in the variable, L), is printed as being 
seen by the player. Lines 120 and 180 are there simply 
for grammatical reasons, and to put an ‘A’ in front of 
certain objects. There is also the counter S, that 
checks how many objects you are carrying. There is a 
maximum number which means the player has to make 
decisions in the later stages of the game as to what to 
carry and what to drop. 

A vital part of this adventure program concerns the 
acceptance and processing of the player’s commands. 

Firstly, the computer must accept the player’s 
command and then go to a routine which will handle 
the response. The lines below do this. 


240 PRINT:PRINT "QWHAT NOW" 
242 REN CYAN 
245 INPUT N$ 

250 GOSUB 1370 


68 



The routine at 1370 is very useful and basically 
dissects the parts of the command phrase or sentence 
that are required. 


i370 REM xx* COfltlAND HANDLING xxx 

1380 T = 1:IF LENCNi I<3 THEN T = 100:RETURN 

1390 B*=MID*CC* ,T ,3D:IF B*=LEFT*CN$,3D T 

HEN T = CT+2 D/3:GOTO 1420 

1400 IF T>97 THEN 1430 

1410 T =T+3:GOTO 1390 

1420 FOR CT =LENCN$ ] TO 1 S.TEP-l:IF HIDiC 
N$,CT,n = " " T HEN CT$=riIDiCNi ,CT+1 ,3 3 
1425 IF IHDiCN't ,CT , 1 DO" " THEN NEXT CT 
1430 RETURN 


The routine does the following: It checks to see that 
the command entered is less than three letters, if this 
is the case it goes back to the main loop, the command 
entered was an invalid one. Lines 1390, 1400 and 
1410 form a loop without using the FOR ... NEXT 
commands. In this loop, the first three letters of the 
player’s command are checked with the command 
string. If there is a command in the command string that 
is equal to the player’s command then the position that 
the command comes in the command string is 
recorded and that is used as the basis for the 
information when the program goes back to the main 
loop. If no command is found, then the program 
indicates that it is an invalid command by assigning a 
value of greater than 97 to the variable T and then 
returns to the main loop. If the command is a valid one, 
then there is further string handling to be done. The 
last word of the command is found and the first three 
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letters of that word are recorded in CT$. This primarily 
used when there is an object manipulation. 

The program now returns to the main loop where (if it 
is an invalid command) the computer prints up one of 
the messages from the response string, P$. The 
program then ON ... GOSUB’s to the line starting the 
subroutine to operate that particular command. The 
variable T is used here. 


270 IFT>960RT C1THENPRINT:PRINTTHBC12 DU ID 
$CP$,CCINTC4xRNDCl3 3 3*8 3+1,8D:GOTO290 
278 IF T>14 THEN GOTO 282 
280 ON T GOSUB 340,340,420,420,420,510,5 
70,630,650,680,700,700,830,830:GOTO 290 

282 IF T>23 THEN GOTO 285 

283 T=T-14:ON T GOSUB 920,930,960,960,10 
20,1040,1040,1040,1060:t = j+ 14:GOTO 290 
285 T=T-23:ON T GOSUB 1070,1070,1100,113 
0,1130,1130:T=j+23 


We will not discuss all the commands available in this 
adventure. We have, instead, chosen a couple which 
are fairly representative of what is in store for the 
budding adventurer. We will first have a look at the 
movement commands, MOVE and GO. 

These commands are followed by the direction in 
which the player wishes to go, north, south, east or 
west. The two words must be separated by a space. 
The movement mechanism is based on the logic used 
for linking locations in this adventure. Each location, 
as you’ll see if you look at the location data in the 
initialisation section, has four pieces of data. Each 
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refers to the new location in which the player would 
end up if he or she went in a particular direction. The 
first number is for northern movement, the second for 
southern movement and so on in much the same way 
as the Dark Forest system. When you decide to move 
in a certain direction, the computer gives the variable 
K a value, 1 if it is north that you decided to move to 
and so on. If you are moving in an unblocked direction, 
the program makes the new location variable, L, equal 
to the figure in the room array that applies to your 
present position and the direction in which you wish. 
For example, if you plan to move N and you are at 
location 1, then the new location value will be P(1,1) 
(that is the first location and movement up, K = 1). If 
you look in the data in line 1670, the first four numbers 
refer to location 1. Moving north is handled by the first 
number, which is 2. Therefore the new location that 
you are moved to is location number 2. 

If the computer finds the new location is less than 1, 
then the player cannot go that way. The program then 
displays a suitable message and L is given its 
previous value back. 


330 REM xxx COMMANDS xxx 
340 REM 

350 IF LEFTiCCTi , 1 3 = "N" THEN K = 1 
360 IF LEFTiCCTi ,1 D-~"S" THEN K=2 
370 IF LEFT*CCT*,1D="E" THEN K=3 
380 IF LEFTtCCT* , 1 D--"W" THEN K=4 
390 N=L;l=PCL ,K 3 

400 IF L<1 THEN PRINT "YOU CAN’T GO THAT 
UAY":L=N 
410 RETURN 
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We’ll now look at one of the ‘red herring’ commands, 
HELP. If this is entered, the computer responds with a 
curt phrase, “HELP YOURSELF, NO CLUES FROM ME”. 
The program then returns. A few of these type of 
commands, eliciting a humorous reply from the 
computer, take up little memory and add a little 
light-heartedness to the whole affair. 


i060 PRINT "HELP YOUR SELF, NO GLUES FRO 
M ME'Y RETURN 


The READ command is an interesting one to look at 
and typifies many of the commands in this adventure. 
Many of the commands fall roughly into the following 
format: Is the object required to do this currently being 
carried by the player; Is he or she in the right location 
to do this; Does the player request the right object to 
use in conjunction with the command; And are all other 
conditions (such as extra essential objects) correct 
for the operation to take place. If there is anything 
wrong, some form of action, usually a message is 
displayed, and the game goes back to the main loop. If 
everything is okay, the program performs the 
operation, points out that it has performed it, and 
returns to the main loop. 

Let’s transform this format into a practical example, 
READ. Firstly, if the torch is not carried by the player 
(L(2) the part of the array denoting the torch is not 
equal to zero) then the computer prints a ‘too dark’ 
message and returns. If none of the three readable 
items (the memo, the papers or secret papers) is with 
the player in that location, then the computer prints a 
‘nothing to read’ message. If the memo is with the 
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player (L(4) the place in the object array for the memo 
is equal to the adventurer’s present location), a coded 
message is printed and you are told that it is written in 
code and needs the computer to decipher it, another 
object for the adventurer to hunt for. If the player tries 
to read the papers, he or she is told that they are a ‘red 
herring’, just company accounts. The player is 
reprimanded if he or she tries to read the secret 
papers. After these actions have been followed, the 
computer waits for you to press a key to continue the 
game. The READ routine is as follows: 


570 IF LC23O0 THEN PRINT "IT'S TOO DORK 
TO READ!":RETURN 

580 IF LC430L AND LC1730L AND LC1830L 
THEN PRINT "THERE IS NOTHING TO READ" 
590 IF LC4 3=L THEN PRINT "READS: TELUSRI 
TEAHOMHGOEAENHWSRO": PR I NT 
592 IF L C4 3 ~L THEN PRINT "IT IS WRITTEN 
IN CODE, YOU NEED THE" 

594 IF LC4 3~L THEN PRINT "COMPUTER TO DE 
CODE IT- 

600 IF LC18 3--L THEN PRINT "DON'T WASTE Y 
OUR TIME, THEY ARE COMPANY" 

604 IF L r18 3 ~L THEN PRINT "ACCOUNTS, UER 
V BORING- 

610 IF LC173-L THEN PRINT -yoUR JOB IS T 
0 STEAL THEM, NOT READ THEM" 

620 PRINT:PRINT "PRESS RETURN TO CONTINU 
E" 

625 INPUT Li:RETURN 


We will have a look at one part of another command, 
UNLOCK. This command, obviously enough, unlocks a 
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locked door, if you have the key. The routine to use 
this command starts at line 700. The command checks 
that there is a locked door in the location, that you 
have the key and that it has not crumbled into dust due 
to overuse. It checks that the last word in the sentence 
was door, so that the command phrases ‘UNLOCK THE 
SOUTHWARDS FACING DOOR’, ‘UNLOCK LOCKED 
OFFICE DOOR' or simply ‘UNLOCK DOOR’ would all 
be accepted and yield the same response from the 
computer. This is true of all the commands and some 
have a wider choice of phrases that can be entered. 

If all the previous conditions are met and the 
adventurer is in location 16 or location 28, then the 
door between these locations is opened and the 
program accordingly changes several numbers 
applying to the room logic. The southern direction in 
location number 28 is made equal to 16 and the 
northern direction in location 16 is made equal to 28. 

It can be seen by manipulating the arrays, variables 
and strings set up in the early part of the game, it is a 
simple matter to move objects about, open and block 
passages, move around the locations and generally 
perform a wide number of actions involving certain 
conditions that must be met to infuriate and amuse 
the player with simple responses. 

This sort of adventure is more versatile and generally 
more exciting to construct and play than most other 
kinds of adventure. The possibilities for commands are 
almost endless, providing they are covered in the 
command string and are set up logically with a 
subroutine that covers many possible conditions. 
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What we’ve talked about on commands in this 
adventure could be said to be just the tip of the 
iceberg. Though additional commands act in a similar 
way to the ones shown above, what they actually do 
and what is needed to make them work has not been 
given away. When you start to play the game, you will 
see just how much can be crammed into less than 16K. 
Because we have kept the program all text, converting 
it to other computers will not be difficult. There is so 
much memory space left that this game can be 
expanded to more than double its present size. 

Several final points. Firstly when playing the game, 
after the computer responds to your command, there is 
a long pause. If you find the pause too long, press a 
key and the program will continue. If, alternatively, you 
find the pause too short, then alter line 310 shown 
below. 


310 FOR TT = 1 TO 1000:GET M-IF 0$ = "" THE 
N NEXT:GOTO 320 


Secondly, you may have noticed that none of the 
adventures in this book feature a game ‘save’ or 
‘resurrection’ feature. A game save feature simply lets 
you save your current status onto cassette or disk so 
that when you return to play the game some time later, 
you do not have to play the early stages of the game 
again. A resurrection feature allows a player killed by 
the adventure to continue playing the adventure albeit 
with a points or treasure loss. I have not included 
either feature, because I do not feel that the 
adventures in the book need them, as they are finely 
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balanced between the computer and the player. These 
extra features would make the game much easier to 
solve. Dark Forest, for example, with its random 
elements would suffer badly with the adventurer only 
going through the early stages once. 

These two features are usually found on large 
commercial adventures and if you wish, you can add 
them to your program. The game save feature can be 
added by using the cassette or disk file statements 
and recording all the variables and arrays that have 
changed since the beginning of the game. A simple 
routine could then be developed to allow tbe data to 
be loaded back into the major program. The 
resurrection feature is far simpler to implement. All you 
need to do is to add a small routine in front of the lose 
routine at the end of the game. This sort of extra 
routine would take away a certain amount of such 
things as treasure and points, let you carry on the 
game and perhaps move you back to a location closer 
to the start of the game. 

Finally, here is the complete listing: 


10 REM xxx THE NIELSON PAPERS xxx 

20 REN xxx A TENT ADUENTURE xxx 

25 PRINT "sJ': POKE 53280,6:P0KE 53281,8 

30 GOSUB 1730:GOSUB 1440 

40 REH xxx MAIN LOOP xxx 

50 SA=SA-l:IF SA=0 THEN 1300 

55 POKE 53281,2:P0KE 53280,11 

60 PRINT "sjl SPRINT:PRINT "YOU ARE IN "; 

i_$CL D 

65 REN CLR SCREEN YELLOW 

70 IF L=7 AND LC17D=0 THEN 1220 
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80 IF L=7 AND LC173O0 THEN 1290 

90 IF L=29 THEN PRINT "YOU ARE ON THE TO 

P FLOOR- 

100 F0RN=1T04:IF PCL,N3=-1 THEN PRINT"LO 
CKED DOOR TO THE ";NID*CD$,C5*N3-4,53 
110 S=0: PRINT:PRINT "iiYOU HAUE: "; 

115 REN LT GREEN 

120 FOR D = 1 TO 18: IF D=6 OR D=9 OR D = 10 
OR D>14 THEN A* = " ":GOTO 130 
125 A* = " A " 

130 IF S>0 AND CLCD 3 3=0 THEN PRINT TABC9 
3; 

140 IF LCD 3=0 THEN PRINT Ai; 0$CD 3: S=S+1 
150 NEXT D 
160 PRINT 

170 Z=0: PRINT "_YOU CAN SEE: " 5 
175 REN PURPLE 

180 FOR D=1 TO 18:IF D=6 OR D=9 OR D=10 
OR D>14 THEN A* = " ":GOTO 190 
185 A* = " A " 

190 IF LCD 3=L AHD Z>0 THEN PRINT TABC113 

200 IF LCD 3=L THEN PRINT A$;0*CD3:Z=Z+1 
210 NEXT D 

220 IF Z=0 THEN PRINT "NOTHING NUCH" 

230 IF G1=L THEN PRINT: PRINT "ejA SECURIT 

Y GUARDED:DC=DC-1:IF DC=0 THEN 1300 

235 REN BLACK WHITE 

240 PRINT:PRINT "QWHAT NOW- 

242 REN CYAN 

245 INPUT N* 

250 GOSUB 1370 

260 IF G1=L AND T<>13 AND T<>14 AND T<27 
THEN 300 

270 IFT>960RT <1THENPRINT:PRINTTABC12 3NID 
$CPi , C CINTC4XRNDC 1 3 3 3*8 3+1 ,8 3:GOTO 290 
278 IF T>14 THEN GOTO 282 
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280 ON T GOSUB 340,340,420,420,420,510,5 
70,630 ,650,680,700,700,830,830:GOTO 230 

282 IF T>23 THEN GOTO 285 

283 T =T-14: ON T GOSUB 920,330,360,360,10 
20,1040,1040,1040,1060:T=T+14:GOTO 290 
285 T =T-23:ON T GOSUB 1070,1070,1100,113 
0,1130,1130:T=T+23 

230 FOR TT = 1 TO 500:NEXT:IF T<3 THEN 320 
300 IF G1=L THEN PRINT "THE GUARD FIGHTS 
BOCK. .," 

310 FOR TT-1 TO 1000:GET AT:IF 6$="" THE 
N NEXT:GOTO 320 
315 TT = 1000 
320 GOTO 40 

330 REN xxx C0NH6NDS xxx 
340 REN 

350 IF LEFTTCCTT ,1 3 = "N" THEN K = 1 
360 IF LEFT'TCCTT, 1 3 = "S" THEN K=2 
370 IF LEFTfCCTT,1 3 = "E" THEN K=3 
380 IF LEFTTCCTT , 1 3 = " W" THEN K=4 
390 N=L:L=PCL ,K 3 

400 IF L<1 THEN PRINT "VOU CON'T GO THAT 
HOY”:L =N 
410 RETURN 

420 DU-0:FOR CT=1 TO 54 STEP 3:IF HIDTCO 
$,CT,33=LEFT$CCT$,33 THEN DU=CT 
430 NEXT:CT=CDU+23/3:IF DU=0 THEN T=100: 
RETURN 

440 IF S>4 THEN PRINT "YOU NUST DROP SON 
ETHING FIRST";RETURN 

450 IF CCT =8 OR CT=133 AND S>2 THEN GOSU 
B 1800:RETURN 

470 IF CT =3 OR CT = 11 THEN PRINT "DON'T B 
E SILLY IT IS TOO HEAUYRETURN 
480 IF LC17 3 -3 THEN SA=25:GOSUB 2140 
482 IF LC17 3=3 THEN PRINT "THE ALARNS HA 
UE SOUNDED, you DON'T HAUE 
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484 IF LC17 3-3 THEN PRINT "MUCH FIME":LC 
17 3-0:RETURN 

490 IF LCCT 3-L THEN LCCT3-0:PRINT "YOU A 
RE CARRYING THE 0$CCT3:RETURN 

500 IF L=3 AND CT-17 THEN PRINT "THEY AR 
E OUT OF REACH":RETURN 

505 IF LCCT30L THEN PRINT "IT IS NOT HE 
RE":RETURN 

510 REM xxx DROP xxx 

520 DU=0:POR CT=1 TO 54 STEP 3:IF LEFTiC 
CT$,33-MID*CO$,CT,33 THEN DU-CT 
530 NEXT: CT-CDU+2 3/3: IF DU-0 THEN T-100: 
RETURN 

540 IF S-0 THEN PRINT "YOU HAUE NOTHING 
TO DROP":RETURN 

550 IF LCCT 300 THEN PRINT "YOU DON'T HA 
UE IT TO DROP";RETURN 

560 LCCT3-L:PRINT "YOU HAUE DROPPED THE 
;0$CCT 3:RETURN 

570 IF LC23O0 THEN PRINT "IT'S TOO DARK 
TO READS":RETURN 

580 IF LC430L AND LC1730L AND LC1830L 
THEN PRINT "THERE IS NOTHING TO READ" 
590 IF LC43-L THEN PRINT "READS: TELUSRI 
TEAHOMHGOEAENHLISRO": PRINT 
592 IF LC43-L THEN PRINT "IT IS WRITTEN 
IN CODE, YOU NEED THE" 

594 IF LC4 3-L THEN PRINT "COMPUTER TO DE 
CODE IT" 

600 IF LC18 3-L THEN PRINT "DON'T WASTE Y 
OUR TIME, THEY ARE COMPANY" 

604 IF LC183-L THEN PRINT "ACCOUNTS, UER 
Y BORING- 

610 IF LC17 3-L THEN PRINT "YOUR JOB IS T 
0 STEAL THEM, NOT READ THEM" 

620 PRINT:PRINT "PRESS RETURN TO CONTINU 
E" 
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625 INPUT L$:RETURN 

630 IFCLC8 3=0OF^LC 13 3=0 3ANDCCT$="LAD"0RCT 
$="STO"3ANDL=3THEN GOSUB1820:RETURN 
640 IF L=6 THEN PRINT "YOU CANNOT CLIMB 
OUER THE FENCE":RETURN 

650 IF L=6 AND LC6 3=35 AND LC9 3=0 AND CT 

$="FEN" THEN GOSUB 1830:RETURN 

660 IF L=6 AND LC63035 AND LC93=0 AND C 

T$="FEN" THEN GOTO 1850 

670 RETURN 

680 IF CL=20 AND CT$="MON" AND LC103=03 
THEN GOSUB I860:RETURN 

690 PRINT "THIS MACHINE CHANGES THE NOTE 
S YOU OWN INTO COINS" 

695 PRINT "IT DOES NOTHING ELSE":RETURN 
700 DDU=0:FOR M=1 TO 4:IF PCL,M3=-1 THEN 
DDU = 1 

710 NEXTM:IF DDU=1 AND LC143=0 THEN KY=K 
Y+l:IF KY=3 THEN KY=0:GOSUB 1880:RETURN 
720 IF DDUOl OR LC143O0 OR CT*<>"DOO" 
THEN 790 

730 PRINT "WITH A CREAK THE DOOR OPENS.. 

740 IF L = 19 THEN PC 19,20 = 18:PC 18,19 = 19 
750 IF L =2 OR L =27 THEN PC2,13=27:PC27,2 
3=2 

760 IF L = 16 OR L=28 THEN PC28,23 = 16:PC 16 
,13=28 

770 IF L=21 OR L=22 THEN PC22,33=21:PC21 

,43=22 

780 RETURN 

790 IF L=19 THEN PRINT "YOU ARE TRAPPED 
INSIDE THE UAULT": IF LC143O0 THEN 1300 
800 IF DDUOl THEN PRINT "THERE IS HO DO 
OR TO UNLOCK, FOOL8I":RETURN 
810 IF LC14 300 THEN PRINT "YOU DON'T HA 
UE THE KEY":RETURN 
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820 T = 100:RETURN 

830 IF GS = 1 AND G1=L AND LC1D=0 AND LEFT 
iCCTi,2 3="GU" THEN 890 

840 IF 61<>L THEN PRINT "THERE IS NO GUA 
RD HERE”" 

850 IF LC1 300 THEN PRINT "YOU HAUE NOTH 
ING TO FIRE WITH” 

360 IF LEFTiCCT* ,2DO"GU" THEN PRINT "SH 
OOT WHAT?" 

370 IF LC13=0 AND G1=L AND LEFT$CCT$,2 D = 
GU" AND GSOl THEN GOSUB 2000 
880 RETURN 

890 IF INTC3XRNDC13D+1<2 THEN PRINT " ?0 

U HISSED HIM";RETURN 

900 PRINT"YOU KILLED HIM" 

905 G1 =INTC28*RNDC 1 D .1+3; IF G1=L OR Gl=28 
OR Gl=7 THEN 905 
910 RETURN 

920 PRINT "TIME PASSES. FOR TT = 1 T 

0 2000;NEXT:RETURN 

930 IF LEFTiCCT 1,3.10"COF" OR L<>4 THEN 
PRINT "DRINK WHAT?RETURN 
940 IF L =4 AND LC73O0 THEN PRINT "YOU H 
AUE NOTHING TO DRINK FROM”:RETURN 
950 PRINT' YUKS IT TASTES AWFUL , BUT WHAT 
DO YOU EXPECT FROM A MACHINE":RETURN 
960 IF LC23O0 THEN PRINT "IT'S TOO DARK 
TO LOOK AROUND OR SEARCH":RETURN 
970 IF L =3 THEN PRINT "THE SECRET-PAPERS 
ARE ON THE TOP SHELF"sRETURN 
980 IF L =21 THEN PRINT "THERE IS A COIN 
LOCK ON THE TOILET DOOR";RETURN 
990 IF L =2 THEN PRINT "THERE IS A LOCKED 
DOOR TO THE WEST IT IS CONTROLLED "? 
992 IF L =2 THEN PRINT "UIA A CENTRAL COM 
PUTER, THE ONLY WAY TO OPEN IT 
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994 IF L =2 THEN PRINT "IS TO CALCULATE T 
HE CODE"'RETURN 

1000 IF L=28 THEN PRINT "THERE IS A SIGN 
SAYING TO GO UP ENTER 'GO N' 

1004 IF L =28 THEN PRINT "ONCE UP, TO GO 
DOWN, ENTER 'GO S' ' 

1006 IF L =28 THEN FOR TD = 1 TO 1000:NEXT: 
PRINT "I DON'T UNDERSTAND IT EITHER" 

1008 IF L=28 THEN RETURN 

1010 PRINT "I AM LOOKING BUT THERE IS LI 

TTLE TO SEE":RETURN 

1020 IF LC6 0=0 THEN PRINT "THEY FIT YOU 
PERFECTLY":G$="YOU ARE WEARING GLOUES" 
1025 IF L C 6 0 =0 THEN LC60=35:RETURN 
1030 PRINT "YOU ARE WEARING ALL THAT YOU 
OWN":RETURN 

1040 IF LC5 0=0 AND RIGHT$CCT<t>,3 0 = ”MEM" T 
HEN GOSUB 2030:RETURN 

1050 IF LC5 0=0 AND L=2 THEN GOSUB 2050:R 
ETURN 

1060 PRINT "HELP YOUR SELF, NO CLUES FRO 
M ME":RETURN 

1070 PRINT "HAUE YOU REALLY HAD ENOUGH" 
1075 INPUT A$ 

1080 IF LEFT$CA$,10="Y" THEN PRINT "OK., 
, , .COWARDS":END 
1090 RETURN 

1100 IF LEFT$CCT$,3 0<>"GUN" THEN GOTO 11 
10 

1102 IFMIDtCN$,5,8 0 = "SILENCER"ANDLC120=0 
ANDLC10=0 THENGS=1:GOSUB 2070:RETURN 
1110 IF LEFT$CCT$ ,3 OO'LOC" THEN GOTO 11 
20 

1115 IF MIDiCNf ,5,4 0 = "COIN" AND CC=1 AND 
l=21 THEN GOSUB 2080:RETURN 
1120 PRINT "VOU CAN'T PUT THAT THERE":RE 
TURN 
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1130 IF G1=L THEN 1150 

1140 PRINT "THERE IS NO ONE NEAR YOU":RE 
TURN 

1150 INPUT "WITH WHAT";W$ 

1155 IF LEFT$CW$,4 3 = ”WIRE" AND LC9D=0 AN 
D RNDC13>0.5 THEN GOSUB 2090 
1160 IF W$ = "ROPE" AND LC16 3-0ANDRNDC1 3> . 
5THENPRINT"YOU FINISHED HIM OFF":G1=0 
1170 IF LEFTiCWi ,4 DO'WIRE" AND W$<>"ROP 
E" THEN 1200 

1180 IF G1=0 THEN G1=INTC28xRNDC1DD+3:IF 
G1=28 OR G1=L OR Gl=7 THEN 1180 
1190 RETURN 

1200 PRINT "YOU WILL HAUE TO FIGHT HIM W 
ITH YOUR HANDS" 

1204 IF I NT C5*RND Cl3 D~1 THEN PRINT "YOU 
HAUE KILLED HIM":G1=0:GOTO 1180 
1210 RETURN 

1220 PRINT:PRINT"YOU WERE 100* SUCCESSFU 
l IN YOUR MISSIONAND THE ORGANIZATION"; 
i225 PRINT "HAS KINDLY LET YOU KEEP THE 
OBJECTS YOU COLLECTED.,-" 
i230 FOR T = 1 TO 18:READ ACT D:NEXT T 
1240 FOR T=1 TO 18:IF LCTD=0 THEN PRINT 
OiCT D;" WORTH":PRINT ACTD;"POUNDS" 

1250 NEXT T 

1260 PRINT "EXCEPT THE SECRET PAPERS" 
i270 FOR T=1 TO 5000:NEXT T 
1280 GOSUB 2180:PRINT " QQ 3 3 3 3 ]] 3 3 3 ] ] ]W EL 
l DONE MS": END 

1290 PR I NT:PR I NT "YOU'RE SAFELY AWAY BUT 
YOU DID NOT STEALTHE PAPERS 
1292 PRINT "THE ORGANIZATION IS NOT 
PLEASED. ... YOU HAUE BEEN SENT BACK 
1294 PRINT "TO TRY AGAIN"iFOR T=1 TO 30 
00:NEXT T:RUN 
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1300 FOR T=1 TO 3000:NEXT T:FOR T=1 TO 6 

JPRINT:NEXT:PRINT -'sY 

1305 POKE 53280,11:POKE 53281,0 

1310 GOSUB 2140: PRINT " jl xxxxx xx 

NX/ NX# NV SI/ Nl/ NX» W * 1 

A /Ai A A A A A A A 


1315 

1320 

REM YELLOW 
PRINT " 

* 

X 

X 

X 

X” 

1330 

PRINT " 

xxxx 

xxxxx 

X 

x " 

1340 

PRINT " 

X 

X 

X 

X 

x " 

1350 

PRINT " 

X 

X 

X 

X X X X X 


xxxxx" 

i360 PRINT:PRINT:GOTO 1310 

1370 REM xxx COMMAND HANDLING xxx 

1380 T = 1:IF LENCNf 3 <3 THEN T = 100:RETURN 

1390 B<fc=MID*CC$,T,33: IF Bt --LEFT $ C N$ , 3 3 T 

HEN T=CT+21/3:GOTO 1420 

1400 IF T>97 THEN 1430 

1410 T =T+3:GOTO 1390 

1420 FOR C.T =LENCN$ 3 TO 1 STEP-1: IF MIDiC 
N$ , CT , 1 3 -" '■ THEN CT*=MID*CN*,CT+1,33 
i425 IF MIDiCNi ,CT , 1 DO” " THEN NEXT CT 
1430 RETURN 

1440 REM xxx INITIALISATION xxx 

1450 DIM 0$ C18 3 , L$ C30 3, P C 30,4 3 , L f. 18 3 , A C 1 
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1460 FOR T=1 TO 18:READ 0$CT3:NEXT 
1470 FOR T = 1 TO 30:READ L$CT3:NEXT 
1480 FOR T = 1 TO 18.READ LCT 3.NEXT 
1490 DATA GUN,TORCH,COFFEE-MACHINE.SC.RIB 
BLED-MEMO , POCKET-COMPUTER ,GLOUES , CUP 
i495 DATA STOOL , WI RECUTTERS 
1500 DATA MONEY,COIN-MACHINE,SILENCER,LA 
ODER,KEY,PAPER-CLIPS,ROPE .SECRET-PAPERS 
1505 DATA PAPERS 
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1510 DATA THE MAIN ENTRANCE,THE RECEPTIO 
N AREA,THE DOCUMENT ROOM 
1515 DATA THE STAFF CANTEEN,THE DELIUERY 
ROOM 

1520 DATA A CORNER OF THE YARD NEXT TO A 
N ELECTRIFIED FENCE 

i524 DATA "THE ALLEY BEHIND THE COMPLEX, 
A CAR IS WAITING TO TAKE YOU AWAY" 

1530 DATA THE COMPUTER ROOM,THE MAINTENA 

NCE AREA,A DARK CORRIDOR 

1535 DATA THE RECORDS DEPT,AN UNTIDY OFF 

ICE 

1540 DATA THE TYPING POOL,THE RECREATION 
ROOM,A NARROW CORRIDOR 
1545 DATA A PLUSH CONFERENCE ROOM,AN UNL 
IGHTED OFFICE 

1550 DATA THE STRONGROOM NEXT TO THE U 
AULT,THE STEEL UAULT,THE ACCOUNTS DEPT 
i555 DATA THE EXECUTIUE WASHROOMS 
1560 DATA A COLD BARE ROOM,A DARK CORRID 
OR,A CLEAN NEW STOREROOM 

1565 DATA A LARGE CUPBOARD,A BRIGHT HALL 
WAY 

1520 DATA THE TELEX ROOM,A LIFT,THE DIRE 

CTORS BOARDROOM,A SPACIOUS OFFICE 

1580 DATA 0,2,4,27,3,33,25,13,9,19,20,30 

,5,10,13,11,34,11 

1590 D& ="NORTHSOUTHEAST WEST' 

1600 C$ = " GO MOUTAKG'ETSTEDROREACLI CUTCHAO 
PEUNLFIRSHOWAIDR ISEALOOWEACOMCALDEC" 
i605 C$ = C$ + "HELC.LUQUIPUTHITFI G'ATTKIL " 
i610 0*="GUNT0RC0FMEMC0MGL0CUPST0WIRM0NC 
01SILLADKEYCLIROPSECPAP" 

i620 P$ ~" p ARDON? WHAT? RUBBISH5REPHRAS 
E" 

i 630 L = 1 LLC1 D--0: K=0i SA = 10000i KY=0;GS=0 
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i640 Gl=INTC28xRNDCl D.H3: IF Gl=28 OR G=7 
THEN 1640 

1650 DC = I NT f. 6*RND C1 J1+5 

1660 FOR X = 1 TO 30;FOR Y=1 TO 4;READ PCX 
, Y NEXT; NEXT 

1670 DOTO 2,0,0,0,-1,1 ,4,0,0,0,2,0,0,10, 
9,2,0,15,6,0,0,0,5,0,0,0,0,0,15,24,0 
i675 DOT6 21,20,3,13,9,4,0,9,1,0,27,14,1 
2,17,0,11,16,16,0,0,9.26,0,18,11,5,8 
1680 DOT6 0,21,-1,23.12,26,22,12,15,0,19 
.20,18,14,0,-1 ,0,0,18,9,0,0,2,17,3,-1 
1685 DOT0 0,17,-1,28,16,23.0,17,8,0,26,1 
2,0,0,0,27,6,14,0.24,11,-l,25,13,29,16 
1690 DOT0 0,0,28,0,0,30,0,0,29,0,80,10,0 
.1,200,8,3,10,22,0,0,10,40,10,1 ,27 
1695 DOTO 1000000,2 

1700 UO ”54296: UIF =54276; OD “54277J SR=54278 
’HF =54273;LF =54272 
1720 RETURN 

1730 PRINT "s_" : NN$ = "aTHE NIELSON POPERS' 

i735 REM CLR SC.RN RED 

i740 PRINT ' QQQQQQQ1111111111 “;NN4 

i745 REM DOWN CRSR RIGHT CRSR 

1750 FOR TD = 1 TO 1000.NEXT TD 

1760 PRINT " QQ]]]]]30 FULL SCOLE TEXT OD 

DENTURE" 

1790 RETURN 

1800 PRINT to CORRY THE ";0*CCTD;" YOU" 

? p R I NT 'CON ONLY CORR'Y 2 OTHER ITEMS' 
i810 RETURN 

1820 PRINT "YOU CON REOCH THE. SECRET POP 
ERS NOW" ;lC 17.1=3: RETURN 
1830 PRINT "THE FENCE HOS BEEN CUT, YOU 
CON GET OUT BY GOING NORTH"PC6,1 3-7 
i840 RETURN 

1850 PRINT "YOU CUT THE FENCE BUT FORGOT 
IT UOS'Y PRINT "frELECTRIFIED I § S " 


86 




1852 REM YELLOW 
1855 GOTO 1300 

i860 PRINT 'THE MACHINE ACCEPTS THE NOTE 
S AND CHANGES THEM INTO A "; 

1870 PRINT "SINGLE COIN2"f 0$C10l="COIN": 
? CC = 1;RETURN 

1880 LC143=37:PRINT “THE KEY WAS OLD AND 
YOU USED IT TOO MUCH IT HAS CRUMBLED "i 
i890 "INTO DUST":RETURN 
2000 GOSUB 2500;FOR TD=1 TO 500:NEXT 
2003 PRINT "YOU KILLED HIM BUT THE GUNSH 
OTS HAUE SETOFF THE SONIC ALARMS 
2005 GOSUB 2140 

2010 PRINT "YOU HAUE LITTLE TIME TO E 
SCAPE": SA = 15. G1 =INTC28xRNDC 1 1 .1+3 
2020 IF G'l =L OR G1 =28 THEN Gi=Gl-l 
2025 RETURN 

2030 PRINT "THE MEMO READS.„." > FOR TD=1 
TO 1000:NEXT TD 

2040 PRINT "THE GLOUES ARE IN THE WASHRO 
OM":RETURN 

2050 PRINT "THE ANSWER TO THE DOOR CODE 
HAS BEEN FOUND, " 

2055 PRINT " JUST ENTER 'GO WEST' :PC2,4 ] 

-3:PC3,3 1-2:RETURN 

2060 PC2,41-3:PC3.3 1-2:RETURN 

2070 PRINT "SILENCER ATTACHED.. YOU CAN N 

OW FIRE QUIETLY":RETURN 

2080 PRINT "THE DOOR SWINGS OPEN, to reu 

EAL THE GLOUES":lC63=21 

2085 LC 10 1-38. CC.=0: RETURN 

2090 PRINT THAT GOT HIM":G1=0:RETURN 

2100 POKE UO, 15:POKE AD,18:POKE SR,64;P0 

KE WF , 17 

2110 FOR H1=10 TO 100 STEP 5:F0R Ll=10 T 
0 100 STEP 5 

2120 POKE HF,HI.POKE LF,L1 
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2130 NEXT; NEXT; POKE UO.0;POKE UF,0;POKE 
HD,0; POKE SR, 0; RETURN 

2140 POKE UO . 15;POKE HD.18:P0KE SR,134. p 
OKE UIF , 33 

2150 POKE HF,5;P0KE LF,103;POR TD = 1 TO 3 
00;NEXT TD. p OKE HF,0;POKE lF,0 
2155 POKE 53280,10 

2160 T G = T G' + 1: IF TG>3 THEN TG'=0. PQKEWF ,0. 
POKEAD,0•POKESR,0;POKE53280,11;RE TURN 
2170 FOR TD•-1 TO 100. NEXT TD; POKE 53280, 
6;GOTO 2150 

2180 POKE UO . 15;POKE HD.18;PQKE SR,18;P0 
KE UIF , 17 

2190 FOR HI=50 TO 200 STEP 10;FOR LI =50 
TO 200 STEP 10;POKE HF,HI.POKE LF.Ll 
2200 NEXT;NEXT;POKE HD.0.POKE SR,0;POKE 
NF ,0;RETURN 

2500 POKE HD, 32: POKE SR, 132. POKE uJF,129 
2510 FOR GS = 15 TO 1 STEP ~l;POKE UO.GS 
2520 POKE HF, 10.POKE lF, 120;FOR DD = 1 TO 
25.NEXT;NEXT 

2530 POKE UO ,0;POKE WF,0;RETURN 
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Chapter Four 


Other Forms 
of Adventure 
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CHAPTER FOUR 

So far, we have only considered the more standard 
type of adventures. If you remember, in the first 
chapter I mentioned that there were many varied 
styles and formats of adventure. This chapter attempts 
to cover these other forms of adventure. 

A good starting point, if you are new to adventure 
writing, is to start writing a grid-based adventure 
game. These types of adventure are very popular and 
some commercial software for the Commodore 64 
claiming to be ‘full scale adventures in the classic 
mould’ are in fact ‘beefed up’ grid games. Grid games 
are generally less versatile and less challenging to 
play than other types, although they can still provide 
much entertainment. A hybrid game using a grid basis 
but including a list of commands similar to the ‘Nielson 
Papers’ would provide an exciting programming and 
adventure-playing challenge. 

Let’s look a little more closely at what a grid game 
actually entails. The most usual way for a grid to be 
formed is for it to be dimensioned in an array. In our 
grid game, The Golden Chalice’, there are 100 
different locations, therefore the array containing the 
locations is dimensioned with 100. A number of the 
elements in the array are then given certain values. 
These differing values are in fact the treasure, monster 
and pot-hole squares. All the other squares not given a 
special value are left blank and are in fact empty 
squares that you can move easily between. 

Each type of obstruction/object is given a certain 
value unique to its type. For example, in The Golden 
Chalice, all the squares containing monsters are given 
the value 113. In this game, the figure given for each 
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item is the CHR$ of the symbol that represents that 
item on the map display. 

Once you have dimensioned an array and given a 
value to each square, it is a simple matter of writing to 
handle each square. You will have a number of IF ... 
THEN statements telling the computer that if the 
square the player is standing on contains a monster 
(i.e. in this game is equal to 113), then go to the 
special subroutine that deals with monsters. If you 
have a grid game with monsters, treasure, magic 
spells and quicksand, then you will have only four 
subroutines of this nature to write. Many games, of 
course, are larger and more complex than this. 

Each subroutine can be written separately, allowing 
you to structure and break down your program into 
neat and tidy blocks of code, as mentioned in the first 
chapter. Once done, the next stage to aim at is the 
ability of the player to move from square to square 
(location to location). 

The best way to allow movement in a grid game is to 
imagine the playing grid as a flat square, numbered 
along each row. In this example, I have used a 10 by 
10 grid. This does not have to be the case. Any size 
grid within memory requirements is possible. A 
diagram of the grid is shown at the top of page 93. 
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If the player presses the key corresponding to 
rightwards movement on the grid, 1 is added to his 
position, moving him rightwards. From looking at the 
diagram above, it is quite simple to see that to move 
left 1 is deducted; to move up/north 10 is deducted; 
while 10 is added to the adventurer’s position if he 
asks to move downwards/southwards. 
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With these pieces written, it is now necessary to add 
frills to the program. Lines will be needed to stop a 
player moving off the boundaries of the grid and win 
and lose routines need to be developed. All other 
embellishments are really up to the person writing the 
adventure. More common ones are a map showing all 
the squares and what is contained on them, a title 
page, a timer feature, a list of possessions that can be 
acquired by going around the grid and probably the 
most important ‘frill’ of all, an objective to the game, 
whether it is to accumulate as much treasure as 
possible or to find the secret code to the IBM 
mainframe, or whatever. 

You can see by now how this form of adventure 
satisfies all the conditions of an adventure we put 
forward in the first chapter. 

Another point to note concerns how the different 
objects and obstructions are placed in the beginning 
of the game. You can either place them randomly as I 
have done in The Golden Chalice or by using DATA 
statements, keeping them rigidly in one place all the 
time. It really is a matter of choice. In this type of 
adventure, having a random element of some 
considerable influence on the game-play is perfectly 
permissable. 

Now on specifically to our grid game The Golden 
Chalice’. You are stuck in the Caves of Delirium, 
somewhere on the planet Zarg, in the Methusian 
sector. Your aim is to find the fabled Golden Chalice 
and then climb out of the caves via one of the many 
openings in the cave roof. 


94 



Sounds easy? There’s a lot more to it than that. You 
have around 40 hours to find the chalice and must 
avoid the many tormented monsters that are also 
trapped in these unnatural caverns. There are many 
other features. We will tell you about two of them. 
Firstly, you need four pieces of rope to climb out of the 
openings of the cave roof. Secondly, if you are 
carrying the map then press ‘M’ and you will catch a 
glimpse of the cavern system but lose three hours as a 
penalty. To move, use the compass points N, S, E, W, 
remembering that, at the start, you are placed near the 
centre of the cave system. 

Just one final point. If you find a torch then you will be 
given your cave situation for the next few moves 
before the torch burns out. You may find that you have 
some trouble decoding the map as ail the objects and 
obstructions are represented by single characters. 
Tough! We will leave you to sort out the map as yet 
another problem to confront while trying to find The 
Golden Chalice’. 

Here is the listing: 


i0 REM *** THE GOLDEN CHALICE xxx 
15 PRINT "s I • GOSUB 1290: REN CLR SC.RN 
20 DIN AC 100 3: P-~0: C=P: NK=P: SC=P: N=P 
30 FOR T = 1 TO 100: ACT 3-TNTC 100XRNDC 13 3+1 
: IF ACT 3<56 THEN ACT 3--46 
40 IF ACT 3>55 AND ACT3<66 THEN ACT 3 = 122 

50 IF ACT 3>65 AND ACT3C76 THEN ACT3^113 

60 IF ACT 3>75 AND ACT3<86 THEN ACT 3^119 

70 IF ACT 3>85 AND ACT3<96 THEN ACT 3-~32 

80 IF ACT 3>95 AND ACT3C101 THEN ACT3^166 
90 NEXT T 


95 




100 FOR T = 1 TO 5:ACI NTC100*RNDC1 3+1 33=41 
:NEXT T 

110 FOR T=1 TO 100:IF ACT3=41 THEN C=C+1 
120 NEXT T: IF C.<4 THEN C=0:GOTO 100 
130 UP=INTC100*RNDC1 33+l:ACHP 3 = 118: TN=43 
: C =0 

140 GC = I NT C100xRND C133+1:ACGC3=42:X=30+I 
NTCC3XRNDC13+13*103+CINTC2*RNDC13+533 
150 00=54296: AD=54277: SR=54278: WF =54226: 
HF =54273:LF=54272 
160 GOSUB 400 
170 GOTO 240 

180 INPUT "□WHAT NOW";N$:REN CYAN 
190 IF N$="N" AND AC HP 3=46 THEN GOSUB 40 
0 

200 IF N<fc = "N" AND X>10 THEN X=X-10 
210 IF Ni="S" AND X<90 THEN X=X+10 
220 IF N$ =" E" AND X/l0<>I NTCX/l03 THEN X 
=X+1 

230 IF Nt="W" AND CX-1 3/10OINTC CX-1 3/10 
3 THEN X=X-1 

240 POKE 53280,2:POKE 53281,6 

245 PRINT " s_": PR I NT " QQQt >>>>>>>> >> RaTH 

E GOLDEN CHALICErt <<<<<<<<<<" 

247 REN CLR SCRN DOWN CRSR GREEN REU ON 
ORANGE REU OFF GREEN 

250 IF N>9 AND C<6 THEN PRINT "uCAUE NUN 
BER "FX: PRINT: REN YELLOW 

260 PRINT "/YOU HAUETNHOURS LEFT":PR 
INT:REN LT GREEN 
270 PRINT " _YOU ARE 

280 GOSUB 1090: IF ACX3=122 THEN 440 

290 IF A C X 3 =41 THEN 470 

300 IF ACX3 = 118 THEN 510 

310 IF ACX 3=42 THEN 550 

320 IF ACX 3 = 166 THEN 600 

330 IF ACX 3 = 113 THEN 630 
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340 IF ACX3=119 THEN 720 
350 IF ACX 3=32 THEN 760 

360 IF INTC2xRNDC133=1 THEN PRINT TABC73 
"IN AN EMPTY CAUE"•GOTO 370 
365 PRINT TABC7 3 "ON A CuEAR LEDGE" 

370 C=C+1 : TM=TM-1: IF TM<1 THEN TM=0:GOTO 
810 

380 PRINT 
390 GOTO 180 

400 REM xxx MAP DISPLAY xxx 
^05 POKE 53280,0:POKE 53281,11 
410 PRINT "sL : ACX 3 = 120: PRINT: PRINT 
415 FOR T = 1 TO 100:PRINT TABC13 3 "_'::RE 
M PURPLE 

420 PRINT CHRtCACT 3 3; : IF T/10 = INTCT/103 
THEN PRINT 

430 NEXT T:POR T=1 TO 2000:NEXT T:TM^TM~ 

3:ACX3=46:RETURN 

440 REM xxx TORCH xxx 

450 PRINT TABC7 3 "NEXT TO A BURNING TORC 
H" 

460 PRINT "THIS WILL HELP YOUR EXPLORATI 
ONS”:C=0:ACX 3=46:M=M+10:GOTO 370 
470 REM xxx ROPE xxx 

480 PRINT TABC73 "IN A CAUE WITH SOME RO 
PE ON THE":PRINT "PLOOR" 

490 ACX 3 =46: P--P+1 : IF P>3 THEN PRINT "VOU 
HAUE ALL THE ROPE YOU NEED":GOTO 370 
500 GOTO 378 
510 REM xxx MAP xxx 

520 PRINT TABC7 3 "STANDING NEXT TO A MAP 
OF THE":PRINT "CAUES OF DELIRIUM" 

530 PRINT :PRINT "IF YOU EUER WISH TO SE 
E THE MAP, ENTER ";:PRINT " : M’ AND 
535 PRINT '"VOU WILL GET A QUICK GLANCE A 
T" 
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53? PRINT "IT THIS WILL COST YOU THREE H 
OURS IN TIME" 

540 A C f1P D---46; GOTO 370 

550 REM xxx GOLDEN CHALICE xxx 

560 PRINT TAB C 7 3 "IN THE TREASURE ROOM" 

570 PRINT "BESIDE YOU, THE CRYSTAL STATU 

E" 

580 PRINT "IN ITS HAND THE. GOLDEN CHALIC. 
E" 

590 ACGC 3--46. GOTO 370 
600 REM xxx FLOOD xxx 

610 PRINT TAB C 7 3 "UP TO YOUR NECK IN WAT 
ER'L PRINT "THE FLOOD HAS COME" 

620 PRINT "VQU MANAGE TO SWIM TO SAFETY 
BUT YOU WASTE 10 HOURS' 

625 TM=TM-10;GOTO 370 
630 REM xxx MONSTER xxx 

640 RESTORE;^OR A = 1 TO INTC5xRNDC1 3 3+1; R 
EAD Mi;NEXT 

650 DATA SERPENT.BACKBREAKER,GRIZZLY ,GIA 
NT RAT , WOLFMAN 

660 PRINT TAB C 7 3 "IN DEEP TROUBLE, YOU H 
AUE AWOKEN THE ";Mi 

670 PRINT "VOU MUST EITHER FIGHT OR FLEE 
, ENTER YOUR CHOICE "; 

675 PRINT -fi - FIGHT, 2 - FLEET 

680 INPUT F;IF F=2 THEN X=X+INTC5xRNDC13 

+1D-INTC5XRNDC13+13.Tn-TM-6 

685 IF F =2 THEN PRINT "YOU ARE SAFE FOR 

THE MOMENT";FOR TD=1 TO 1000;NEXT TD 

687 IF F -2 THEN GOTO 370 

690 R = INTf.3xRNDC 1 3 3. IF R = 1 THEN PRINT "Y 
OU KILLED HIM WITH NO EFFORT" 

695 IF R = 1 THEN PRINT "WELL DONE S"; T M~TM 
+10;MK-MK+1;GOTO 370 

700 IF R ~2 THEN PRINT "AFTER A FIERCE BA 
TTLE . HE STARTS TO RETREAT 
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705 IF R -2 THEN PRINT "YOU HAUE WON!":TM 
-TM-3:MK=MK+1:G0T0 370 

710 PRINT "THE BOTTLE WHS HARD . YOU FOUG 
HT BRAUELY BUT THE WONS" 

712 FOR TD---1 TO 1000: NEXT TD 
715 GOTO 890 

720 REM xxx QUICKSAND xxx 

730 PRINT TABC7D "IN QUICKSAND AND SINKI 

NG FAST Hi- 

740 GOSUB 1030 

750 GOTO 890 

760 REM xxx OPENING xxx 

770 PRINT TABC73 "STANDING BELOW A SHAFT 
OF LIGHT"- PRINT "THERE IS AN OPENING- 
780 GOSUB 1260 
790 IF PTHEN GOTO 970 
800 GOTO 370 

810 REM xxx OUT OF TIME xxx 

820 FOR X=0 TO 8: POR Y=8 TO 0 STEP -1 

330 POKE 53280,XJPOKE 53281,Y,FOR TD = 1 T 

0 50:NEXT:NEXT:NEXT 

840 POKE 53280,0:GOSUB 1030 

850 PRINT " a QQQQQQ11111111111" . : PRINT "EL 

TIME IS UP'S!":FOR TD-1 TO 1000.NEXT TD 

860 REM CLEAR SCRN CRSR DOWN CRSR RIGHT 

WHITE 

890 REM xxx DEFEAT xxx 

395 POKE 53280,0:POKE 53281,2 

900 PRINT " : P RI NT "nYOU HAUE BEEN DEFE 

ATED, the CAGES MAKE AN IDEAL ": 

901 REM YELLOW 

905 PRINT "BURIAL CHAMBER FOR YOU AND 
OTHERS WHO HAUE FAILED 3?" 

910 IF ACGC 3~46 THEN SC.=SC+60 

920 SC=SC+f15xp 1+f10XMKD+TM 

930 PRINT:PRINT "YOUR EXPLORATION LEUEL 

IS ":SC 
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940 GOSUB 1210.END 

970 REM xxx UICTORY xxx 

975 POKE 53280,11.POKE 53281,2 

980 PRINT ' sjtQQxxxxxxxxxxxxxx RtW bLL DON 

E r-rr xxxxxxxxxxxxxxx" 

985 REM CLR SCRN YELLOW CRSR DOWN REU ON 
GREEN REU OFF YELLOW 
990 PRINT-PRINT "□YOU MANAGED TO ESCAPE 
PROM THE CODES OF DElIRIUM" 

995 REM C.YON 

1000 IF 0CGCKM6 THEN 1020 

1010 PRINT "AND WITH THE PRICELESS G'OLDE 

N CHALICE"•GOSUB 1140 

1020 SC.=SC + 300. GOSUB 1030; PRINT: GOTO 910 
1030 POKE UO, 15. p OKE AD, 18:POKE SR,36;P0 
KF. WF , 17 

i040 FOR H1=100 TO 10 STEP -10:POR Ll = 10 
0 TO 10 STEP ■ T 0 

1050 POKE. HF,HI-POKE i_F »Ll : FOR TD = 1 TO 7 
5.NEXT 

1060 POKE HF , 0. p OKE i_F,0.FOR TD-1 TO 50; 
NEXT 

1070 NEXT-NEXT 

1080 POKE UO,0;POKE WF,0.RETURN 

1090 POKE 00.15.POKE AD,33.POKE SR,129.P 

OKE WF,17 

1100 POKE HF, 17.POKE LF ,37;FOR TD = 1 TO 1 
75.NEXT TD 

1110 POKE HF, 14. POKE lF, 107; FOR TD~1 TO 
250.NEXT TD 

1120 POKE 00,0.POKE HF , 0.POKE AD,0: p OKE 
SR ,0 

1130 RETURN 

1140 POKE 00,15.POKE AD,33;POKE SR,33;P0 
KE WF,17 

1150 HI =INT f.10XRNDC 1 ] 3+15; i_l =INT C20XRNDC 
i 1 3+10 
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1170 POKE HF,Hi:POKE LF , L1:FOR TD = 1 TO I 
NTf. C4*RNDC1 D]+l]xl00:NEXT TD 
1180 POKE HF ,0; p OKE LF.0:FOR TD--1 TO 50. 
NEXT TD 

1190 PG-PG+1:IF PG>3 THEN PG=0:RETURN 
i200 GOTO 1150 

1210 POKE. UO. 15; POKE HD ,18; POKE SR.33.P0 
KE WF,33 

1220 POKE HF ,4;POKE LF,208;FOR TD=1 TO 5 
0:NEXT TD 

1230 POKE HF,3: p OKE LF,54.F0R TD=1 TO 10 
0:NEXT TD 

1240 SL=SL+l;IF SL>5 THEN GG=0:POKE U0,0 
: p OKE WF ,0;RETURN 
1250 GOTO 1220 

1260 POKE 00.15; p OKE AD.18;P0KE SR,164 ;p 

OKE WF, 65: HP=54275 :lP--54274 

1265 POKE HP,200-POKE LP,15 

1270 POKE HF ,9: p OKE LF,159:FOR TD = 1 TO 3 

50:NEXT TD 

1280 POKE. UO .0; POKE WF,0:FOR TD = 1 TO 100 
0:NEXT TO.RETURN 
1290 POKE 53281,0.POKE 53280,0 
i300 PRINT ' aRQQQQQ QQ111111111 T HE GOLDEN 
CHALICE." 

1305 REN ORANGE REU ON DOWN CRSR RIGHT C 
RSR 

1310 RETURN 
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Chapter Five 


The City of 
Atlantis 
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CHAPTER FIVE 

This adventure game was written by Ian Watt. Ian is an 
experienced adventure programmer who has 
contributed many adventures to magazines and is the 
author of ‘Creating Adventures On Your BBC’. This 
game was originally written on a BBC Micro and was 
subsequently converted by us to the Commodore 64. 

You find yourself imprisoned in the detention centre of 
the fabled city of Atlantis. Your diving expedition took 
you too close to the city and the Atlantans think you 
are a security risk. On your own, and watched by an 
Atlantan guard, you must find your way back to the 
diving ship you left some time ago. 

Many hazards lie in your way and you find it hard to 
cope with the thin atmosphere that prevails in this city 
under the sea. Trust your luck and skill and make 
haste, as the power reactor that provides the city with 
its energy resources is getting unstable. 

After being asked whether or not you require 
instructions, the computer displays the name of the 
location, the objects there, the items that you are 
carrying (the inventory) and then awaits your 
command. Some commands are only one word, such 
as NORTH while others involve a verb and a noun such 
as GET FLOWER. Following on from this is a list of all 
the commands and objects together with their codes. 
These codes are abbreviated forms of the full words 
and enable you to enter each command and object 
quickly. If you have a two-word command first enter 
the command like FIGHT or EXAMINE. The computer 
will then prompt you with the word ‘OBJECT’. Enter, 
then, the object to be manipulated. 


105 




There is a long pause between command operations, 
allowing you to read and note any response that the 
computer displays, if you wish to speed up the 
program, just press a key when the pause starts and 
the program will continue. 

This program, while being an adventure of the 
standard kind, is written in a different style to the 
others in this book and therefore provides an 
interesting contrast. There is no right way or wrong 
way to write an adventure program and many methods 
result in a playable adventure game. 

Here then, are the lists of locations, commands and 
objects that will aid you in your quest. 






Locations 


1) Detention Area. 

2) Indoctrination Area. 

3) Sports Arena. 

4) Barren Ground. 

5) Blocked Exit From Arena. 

6) Advanced Part Of City. 

7) Primative Part Of City. 

8) Old Part Of City. 

9) Garden Walkway. 

10) Food Growing Area. 

11) Central Dome. 

12) Atlantan Lecture Theatre. 

13) Nuclear Fusion Power Reactor. 

14) Water Hydrolysis Area. 

15) Atlantan Radio Station. 

16) Border Of City. 

17) Passage Out Of Kingdom. 

18) Slave Labour Area. 

19) Animal Specimen Centre. 

20) Underwater Observation Point. 

21) Forbidden Zone. 

22) Equipment Storage Area. 

23) Murky Lagoon. 

24) Air Lock. 

25) Steep Incline. 

26) Cliff Face. 

27) Top Of Cliff. 
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Commands: 

NORTH 

‘N’ 

SOUTH 

‘SO' 

EAST 

‘EAS’ 

WEST 

‘WES’ 

GET 

‘G’ 

TAKE 

‘TA’ 

PICK UP 

‘PI’ 

DROP 

‘D’ 

LEAVE 

‘LE’ 

THROW 

■TH’ 

KILL 

‘K’ 

FIGHT 

‘FI’ 

EXAMINE 

‘EX’ 

FRISK 

‘FR’ 

SEARCH 

‘SE’ 

OPEN 

'O’ 

PUSH 

‘PU’ 

UNLOCK 

‘U’ 

WEAR 

‘WEA’ 

EAT 

‘EAT’ 

FEED 

‘FEED’ 

INSERT 

‘1’ 

CLIMB 

‘C’ 

QUIT 

‘Q’ 

RAISE 

‘R’ 

PLANT 

‘PL’ 

VAULT 

‘V’ 
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Objects: 

(The number after the object denotes the starting 
position of that object. If the number is -2, then that 
means that the object is not in a room). 


HYDROGEN 

‘HY’ 

14 

DIVING GEAR 

‘D’ 

-2 

FUEL SLOT 

‘FU’ 

13 

LOCKER 

‘LO’ 

22 

ATALANTAN 

AT’ 

1 

SCIENTIST 

‘SC’ 

2 

GLADIATOR 

‘GL’ 

3 

OLD DOOR 

‘OL’ 

5 

MASTER KEY 

‘MA’ 

8 

FRUIT 

‘FR’ 

10 

GORILLA 

‘GO’ 

19 

SEA MONSTER 

‘SEA’ 

21 

THICK GLASS 

T 

20 

ROPE LADDER 

‘R’ 

25 

HANDLE 

‘HA’ 

27 

AIR LOCK 

‘Al’ 

24 

CHAINS 

‘C’ 

18 

MICROPHONE 

‘Ml’ 

15 

WARRIOR 

‘WAR’ 

16 

ORG 

‘OR’ 

17 

SLEEPY ORG 

‘SL’ 

-2 

GROUND 

‘GR’ 

4 

JACKET 

‘J’ 

6 

FLOWER 

‘FL’ 

9 

LECTURER 

‘LE’ 

12 

BOOKLET 

‘B’ 

11 

SEEDS 

‘SEE’ 

-2 

POLE VAULT 

‘P’ 

-2 

WALL 

‘WAL’ 

7 

METAL ROD 

‘ME’ 
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Below, is a plan of the adventure scenario. This will 
help you greatly in trying to find your way around the 
adventure. The numbers correspond to the numbers on 
the location titles. 


27 
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The listing for The City of Atlantis starts at the top of 
page 111. 
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10 REN xxxxxxxxxxxxxxxxxxxxxxxx 
20 REN xxx CITY OF ATLANTIS xxx 
30 REN xxxxxxxxxxxxxxxxxxxxxxxx 
40 X=0:PRINT "sT 
45 REN CLR SCRN 
50 GOSUB 1520 
60 GOSUB 1630 

70 PRINT "aQPO YOU WANT INSTRUCTIONS CY/ 
N3";:INPUT ZU IF Zi="Y" THEN 80 

71 REN DOWN CRSR 

75 IF Zi<>"Y" THEN 160 

80 PRINT "§J': PRINT "WHILE ON A DIUING EX 
PEDITION YOU WERE CAPTURED BY 

82 PRINT "PEOPLE FRON THE SEA AND YOU AR 
E NOW A PRISONER OF THESE PEOPLE" 

90 FOR Z=1 TO 3000:GET Ai:IF Ai<>THEN 
GOTO 100 
95 NEXT 

100 PRINT ”sJ': PRINT "YOU HAUE TO DEPEND 

ON GIUING THE CONPUTER "; 

101 REN CLR SCRN 

102 PRINT "INSTRUCTIONS SO THAT YOU NAY 
ESCAPE" 

110 FOR Z=1 TO 3000:GET A*:IF A*<>"" THE 
N GOTO 120 
115 NEXT 

120 PRINT " sj': PRINT "ENTER A CONNAND OR 

AN OBJECT AS THE CONPUTER 

121 REN CLR SCRN 

122 PRINT "PRONPTS YOU - YOU WILL FIND 
THAT, FOR EACH WORD YOU WILL " 

124 PRINT "ENTER AT LEAST THE NUNBER 0 

F LETTERS THAT WILL DETERNINE "5 

126 PRINT "ONE WORD FRON ANOTHER" 

130 FOR Z=1 TO 3000:GET A$:IF A$<>"" THE 
N GOTO 140 
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135 NEXT 

140 PRINT "sJ' - PRINT "IF ONE CONBINATION 
OF CONNAND fTND OBJ ECTOOESN ' T WORK " ; 

141 REN CLR SCRN 

142 PRINT "THEN TRY ANOTHER" 

150 FOR Z=1 TO 3000:GET A*: IF A$0"" THE 
N GOTO 160 
155 NEXT 

160 PRINT "s_":A = l:W=0:U=0:U=0 
165 REN CLR SCRN 

170 W=W+1:RESTORE: p OR T=1 TO 1000:GET A$ 

:IF A*0"" THEN GOTO 180 
175 NEXT 

180 PRINT ' s_r ■ IF EC6 3—2 AND U<6 THEN U = 
U+l 

185 REN CLR SCRN 

190 IF C A =6 OR A = 11 3 AND ECU 3-0 THEN GO 
SUB 1800:GOTO 720 

200 IF W>35 AND EC 130-2 THEN GOSUB 1810 
:GOTO 720 

210 IF A=21 AND EC123-A AND ECU 3=0 THEN 
EC 113=-2:EC 12 3 = -2:GOSUB 1820 
220 IF EC20 3-A AND EC24 3 — 1 THEN GOSUB 1 
830:EC20 3= -2:EC21 3=A 

230 IF EC25 3-A AND EC26 3-0 THEN EC26 3 — 2 
:EC273=0:GOSUB 1840 

240 FOR B=1 TO A:READ Ai:NEXT B:PRINT "1 
U';A$:REN RIGHT CRSR 

250 PRINT "EXITS: - :"::IF ACA3O0 THEN P 
RINT • NORTH, st: : 

255 REN PURPLE RED 

260 IF BCA3O0 THEN PRINT "uSOUTH: £'; 

265 REN BLACK RED 

270 IF CCA3O0 THEN PRINT "lEAST: £[' 

275 REN GREEN RED 

280 IF DC A 300 THEN PRINT " HJEST: <£" ; 

285 REN BLUE RED 
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290 PRINT: PRINT "OBJECTS: ; 

295 REN ORANGE 

300 H=0: FOR C = 1 TO 30: IF ECCDOA THEN NE 
XT:GOTO 310 

305 PRINT ";H$CC I;:NEXT 

310 PRINT: PRINT "«£[- 

-]"; REfl RED 

320 PRINT: PRINT "INUENTORY:- z."; : REM LT 
BLUE 

330 F=0: FOR C = 1 TO 30: IF ECCDO0 AND ECC 
JO-1 OR F=6 THEN NEXT: GOTO 340 
335 PRINT ":";H$CC D;:NEXT C 

340 PRINT:PRINT:PRINT "<£[- 

-]":REN RED 

350 IF A = 16 AND EC17DO0 THEN GOSUB 1850 
:GOTO 720 

360 PRINT "COfiriAND"; :D$ = "":M=0:N=0 
370 IF F>1 AND A=26 THEN PRINT "THE ROPE 
LADDER HAS BROKEN ...O GOTO 720 
380 IF A = 16 AND EC17JO0 THEN GOSUB 1850 
:GOTO 720 

390 IF A=16 THEN PRINT "QTHE WARRIOR SEE 
S YOUR CHAINS AND THINKS YOU WILL 

391 REN DOWN CRSR 

395 IF A=16 THEN PRINT "NOT GO FAR" 

400 IF EC 18 D=0 THEN GOSUB I860:GOTO 720 
410 IF A =21 AND EC123=A THEN PRINT "QJHE 
SEA NONSTER HAS CAUGHT YOU!!":GOTO 720 
420 INPUT D$:DD*=LEFT*CD*,3D:N=0 
422 FOR C=1 TO 27 

424 IFLEFTiCDDi,1D=B$CCDORLEFTTCDD$,2D=B 
iCC]ORDDi=B$CC DTHENN=C:C=27:NEXT C 
426 IF N>0 THEN GOTO 440 
430 NEXT C:GOTO 450 

440 IF N>0 AND N<5 OR N=24 OR N=28 OR f1 = 
29 THEN GOTO 490 
445 GOTO 470 
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450 PRINT "I'M SORRY BUT I DO NOT KNOW H 

OW TO ".PRINT DiT' SOMETHING":GOTO 170 

460 PRINT "I'M SORRY BUT I DO NOT KNOW W 

HOT A "SPRINT DiO IS":GOTO 170 

470 PRINT "OBJECT ";:D$="":N=0 

480 INPUT Ei:EEi=LEFTiCEi,33:FOR C = 1 TO 

30 

482 IFEEi=G$CC DORLEFTiCEEi,1D=G*CCDORLEF 
TiCEEi,2 3=G$CC ]THENN=C:C=30:NEXT:GOTO490 

483 REM PUT CRSR BACK INTO LINE BEFORE P 
RESSING RETURN 

485 NEXT C 

490 PRINT CiCM 3;:IF M>0 AND M<5 OR M=24 
OR M=28 OR M=29 THEN 500 
495 PRINT " ",H$CN3 
500 PRINT 

505 IF M>17 THEN GOTO 515 
510 ONMGOTO590 ,590,590,590,740,740,740,7 
90,790,790,840 ,920,850 ,850,850,960,960 
515 M=M-17:QNMGOTO 960,1050,1100,1130,11 
70,1210,1240,1250,1310,1350:M =M+17 
520 PRINT "I CANNOT DO THAT":GOTO 170 
530 PRINT "I AM ALREADY CARRYING IT":GOT 
0 170 

540 PRINT "I AM CARRYING TOO MUCH":GOTO 
170 

550 PRINT "0 .K . ":GOTO 170 

560 PRINT "I DO NOT SEE IT HERE":GOTO 17 

0 

570 PRINT "I AM NOT CARRYING IT":GOTO 17 
0 

580 PRINT "I DO NOT SEE A PLACE TO PUT I 
T":GOTO 170 

590 IF CM03 AND A = 1 3 THEN U = 1:G0SUB 187 
0:GOTO 170 

600 IF M=3 AND A=1 AND U=0 THEN GOSUB 18 
80.GOTO 170 
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610 IF U = 1 THEN U=0:GOSUB 1890 

620 IF EC7 3 -6 THEN PRINT "THE GLADIATOR 

WILL NOT LET YOU PASS":GOTO 170 

630 IF EC83=A AND N=2 THEN PRI NT"YOU CAN 

NOT WALK THROUGH THE OLD DOOR":GOTO 170 

640 IF EC20 3=A AND 11=2 THEN PRINT "THE 0 

RG IS IN THE WAY":GOTO 170 

650 IF EC29 3=A AND f1 = l THEN GOSUB 1900: G 

OTO 170 

660 DU =A 

670 IF N = 1 THEN A=A+ACA 3 

680 IF 11=2 THEN A=A+BCA3 

690 IF [1=3 THEN A=A+CCA3 

700 IF 11=4 THEN A=A+DCA3 

710 .IF A =DU THEN PRINT "NO EXIT": GOTO 17 

0 

715 GOTO 170 

720 PRINT:PRINT "PRESS SPACE BAR TO STAR 
T AGAIN" 

730 GET A$:IF A*<>" " THEN 730 
735 RUN 

740 IFN < > 1ANDN < >2ANDN < >9ANDN < > 10ANDN 015 
ANDN017ANDN018ANDN021ANDN023THEN745 
742 GOTO 750 

745 IFNO24ANDNO26ANDNO28ANDNO30THEN5 
20 

750 IF ECN 3=0 OR ECN3 = -1 THEN 530 
760 IF F =6 THEN 540 
770 IF ECN30A THEN 560 
780 ECN3=0:GOTO 550 

790 IF ECN 300 AND ECN30-1 OR N=23 AND 
EC24 3=-l AND H>4 THEN 570 
800 IF N = 11 THEN 520 
810 IF H=6 THEN 580 

820 IF N=23 AND EC243=-1 THEN EC243=A 
330 ECN 3=A:GOTO 550 
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840 PRINT"YOU DON'T HAUE ENOUGH ENERGY T 
0 DO THAT IN THE THIN AIR":GOTO 170 
850 IF ECNDOA AND ECNDO0 AND ECNDO-1 
THEN 560 

855 IF N<>6 AND N<>13 AND N<>16 AND N<>2 

2 AND N<>23 THEN GOSUB 1910:GOTO 170 

860 IF N=22 THEN PRINT "THE GROUND IS PR 

EPARED TO PLANT SEEDS".GOTO 170 

870 IF N=23 THEN PRINT "THERE IS A BUTTO 

NHO'lE IN THE .JACKET" :• GOTO 170 

880 IF N=16 THEN PRINT "TO OPEN THE AIRL 

OCK IT NUST BE RAISED" : GOTO 170 

890 IF N---13 AND ECNDOA THEN 560 

895 IF N-3 THEN PRINT "SOME FISH ARE SWI 

MMING ABOUT ON THE OTHER SIDE":GOTO 170 

900 IF ECNDOA THEN PRINT "I DON'T SEE H 

IN HERE":GOTO 170 

910 EC6D=-2:GOSUB 1920:GOTO 170 

920 IF N07 THEN 520 

930 IF F.CNDOA THEN 900 

940 IF U=0 OR U=6 THEN PRINT "YOU WERE N 

0 NATCH FOR THE GLAD IATOR";GOTO 720 

950 EC7D=-2.PRINT’VOU HAD JUST ENOUGH EN 

ERGY TO DEFEAT THEGLADIATOR":GOTO 170 

960 IF N04 AND N<>8 OR H = 6 THEN 520 

970 IF ECNDOA THEN 560 

980 IF N=4 AND NO 17 THEN 1010 

990 IF U=6 THEN PRINT "YOU DON’T HAUE EN 

OUGH ENERGY" GOTO i70 

1000 ECND---2: PRINT " YOU HAUE OPENED THE 
DOOR" . GOTO *170 

1010 IF EC9DO0 THEN PRINT "I CANNOT DO 
THAT. ... ..YET": GOTO 170 

1020 PRINT "THE LOCKER OPENS....... AND CLO 

SES" 

1030 IF EC2 D~-2 THEN EC 2 D-~A: PRINT "SOME 
DIUING GEAR FELL OUT" 
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1040 GOTO 170 

1050 IF N<>2 AND N<>23 AND N<>24 THEN 52 
0 

1060 IF ECND---1 THEN PRINT "I AN ALREADY 
WEARING IT":-GOTO 170 
1070 IF ECN 300 THEN 570 
1075 IF N = 24 AND EC23DO-1 THEN 580 
1080 IF N=24 THEN GOSUB 1930: ECN 3 =-1 : GOT 
0 170 

1090 ECN 3 = -l:GOTO 550 
1100 IF NO 10 THEN 520 
1110 IF ECN 300 THEN 570 

1120 ECN3 = -2:PRINT 0.K , . BOT IT WAS MEA 
NT TO BE FOR SOME ANIMALS":GOTO 170 
1130 IF NOll THEN 520 
1140 IF ECN30A THEN 560 
1150 IF EC 10 300 THEN PRINT "I HAUE NOTH 
ING TO FEED IT WITH":GOTO 170 
1160 EC 103 = -2:EC 113=0:GOSUB 1940;GOTO 17 
0 

1170 IF NOl THEN 520 
1180 IF ECN3O0 THEN 570 

1190 IF A013 THEN PRINT "I SEE NO PLACE 
TO INSERT IT":-GOTO 170 
1200 EC 1 3=-2:GOSUB 1950.GOTO 170 
1210 IF N014 THEN 520 
1220 IF ECN30A THEN 560 

1230 IF A =26 AND EC153 = 0 THEN A=25;ECN3 = 
A.GOTO 550 

1232 IF A=26 THEN A=27.ECN3=A.GOTO 550 
1234 IF A = 25 THEN A=26;ECN3=A.GOTO 550 
1236 IF A = 27 THEN A=26;ECN 3=A;GOTO 550 

1240 PRINT " QQQQA RF YOU SURE? C Y/N 3"• 

1241 REN DOWN CRSR 

1245 GET AT.IF AT = THEN 1245 

i247 IF AT ="Y" THEN 720 
1249 GOTO 170 
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1250 IF N<>16 THEN 520 
1260 IF 6024 THEN 560 

1220 IF EC 15 300 THEN GOSUB i960; GOTO 17 
0 

1280 IF EC2DO-1 THEN GOSUB 1370: GOTO 72 
0 

1290 Y=150-W;IF Y>X THEN X=Y 

1300 PRINT "VOU HAUE NANAGED TO REACH TH 

E SURFACE AND YOUR DIUING SHIP" 

i305 PRINT: PRINT "QQSCORE: ";Y;"11BEST S 

CORE: ";X:GOTO 720 

1307 REM DOWN CRSR RIGHT CRSR 

1310 IF N<>27 THEN 520 

1320 IF F.CN3O0 THEN PRINT "I AN NOT CAR 
RYING THEN":GOTO 170 

1330 IF A04 OR H=6 THEN PRINT "I SEE NO 
PLACE TO PLANT THEN":GOTO 170 
1340 ECN 3“-2:EC28 3=A;GOSUB 1980:GOTO 170 
1350 IF N<>29 THEN 520 
1360 IF A07 THEN 560 

1370 IF EC28 3O0 THEN PRINT "I HAUE NOTH 
ING TO UAULT UIITH"; GOTO 170 
1380 A=10:PRINT "VOU HAUE NANAGED TO UAU 
lT THE WALL";GOTO 170 

1390 DATA DETENTION AREA , INDOCTRI NAT I ON 
AREA,SPORTS ARENA,BARREN GROUND 
1392 DATA BLOCKED EXIT FRON ARENA,ADUANC 
ED PART OF CITY,PR I Ml TIDE PART OF CITY 
1394 DATA OLD PART OF CITY,GARDEN WALKWA 
V ,FOOD GROWING AREA,CENTRAL DONE 
i396 DATA ATLANTAN LECTURE THEATRE 
i400 DATA NUCLEAR FUSION POWER REACTOR,W 
ATER HYDROLYSIS AREA,RADIO STATION 
1402 DATA BORDER OF CITY,PASSAGE OUT OF 
KINGDON ,SLAUE LABOUR AREA 
1404 DATA ANINAL SPECINEN CENTRE .UNDERWA 
TER OBSERUATION POINT .FORBIDDEN ZONE 
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i406 DATA EQUIPMENT STORAGE AREA 

1410 DATA MURKY LAGOON,AIR LOCK,STEEP IN 

CLINE,CL IFF FACE, TOP OF CLIFF 

1420 DATA 0,1,1,0,0,0,3,-3,2,3,0,0,0,0,- 

3,5,0,0,0,0,0,-5,2,0,0,0,0 

1430 DATA 0,0,-l ,-l,3,0,0,0,0,-3 ,-2,3 ,-3 

,0,0,0,5,0,0,0,-5,0,0,0,-2,0,0 

1440 DATA 1,0,2,0,0,-3, -3,0,-3,0,0,-3,4, 

-4,4,-4,0,-5,0,-5,2,2,0 ,0,0,0,0 

1450 DATA 0,-1,3,3,-2,3,0.0,3,4,0,4,5,0, 

5,0,-4 ,0,-4,0,0,0,-2,-2,0,0,0 

1460 DATA N,SO.EAS,WES,G,TA,PI,D.LE,TH,K 

-FI ,EX,FR ,SE,0,PU ,U,WEA,EAT,FE,I,C,Q 

i465 DATA R,PL,U 

1470 DATA NORTH,SOUTH,EAST,NEST,GET,TAKE 
.PICK UP,DROP,LEAUE,THROW,KILL ,FIGHT 
1475 DATA EXAMINE ,PRISK ,SEARCH,OPEN,PUSH 
,UNLOCK,WEAR,EAT,PEED,INSERT,CL I MB, QUIT 
i477 DATA RAISE,PLANT .UAULT 
1480 DATA HY ,D ,FU ,L0 . AT , SC ,GL ,0 'l ,MA ,FR ,G 
O.SEA,T,R,HA,AI ,C,MI ,UJAR,OR,SL,GR,J ,FL 
1482 DATA LE,B ,SEE , p , UAL ,ME 
1490 DATA HYDROGEN,DIUING GEAR,FUEL SLOT 
.LOCKER,ATLANTAN,SC I ENT I ST.GLADIATOR 
i492 DATA OLD DOOR,MASTER KEY.FRUIT,GORI 
lLA,SEA MONSTER,THICK GLASS,ROPE LADDER 
1494 DATA HANDLE,AIR LOCK,CHAI NS,MICROPH 
ONE,HARR I OR,ORG,SLEEPY ORG,GROUND 
i496 DATA JACKET.FLOWER .LECTURER 
1500 DATA BOOKLET .SEEDS .POLE UAULT,HALL , 
METAL ROD 

1510 DATA 14,-2,13,22,1 ,2,3,5,8,10,19,21 
,20,25,27,24,18,15,16,17,-2,4,6 ,9,12,11 
1515 DATA -2,-2,7,23 
i520 REM xxx ARRAYS xxx 

1530 DIM LiC27 3- FOR T = 1 TO 27;-READ LiCT] 
NEXT 
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1540 Did Af.27 3 ,BC27 3,CC27 3,DC27 3 

1550 FOR T = 1 TO 27;READ ACT 3-NEXT> p OR T = 

1 TO 27. READ BCT 3; NEXT 

1560 FOR T=1 TO 27;READ CCT3:NEXT:^OR T= 
i TO 27;READ DCT3.NEXT 

1570 DIN BTC27 3-f r OR T = 1 TO 27; READ BTCT3 
NEXT 

1580 DIN C$C27 3;f r OR T = 1 TO 27: READ C$CT3 
; NEXT 

1590 DIN G<K30 3-f r OR T = 1 TO 30; READ G$CT 3 
NEX : 

1600 DIN H$C30 3.F r OR T=1 TO 30.READ HTCT3 
; NEXT 

1610 DIN EC30 3- ^OR B-"l TO 30: READ ECB3.N 
EXT 

1620 RETURN 

1630 PRINT "s." p OKE 53280,6: POKE 53281,3 

1640 PRINT ' QQQQQQQ11 1111111111" . 

1641 REN DOWN CRSR RIGHT CRSR 
1645 PRINT 'NfcRCITY OF ATLANTIS' 

1650 REN RED RED ON 

1660 FOR T=1 TO 1500;NEXT;RETURN 

1800 PRINT 'THE GORILLA' IS HUNGRY AGAIN, 

. "'RETURN 

1810 PRINT THE POWER REACTOR HAS BEGONE 
UNSTABLE AND HAS BLOWN UP 5 .?" • RETURN 
1820 PRINT 'THE GORILLA HAS RUN AFTER TH 
F SEA NONSTER"■RETURN 

1830 PRINT 'THE FLOWER MAKES THE ORG SLE 
EPY":RETURN 

1840 PRINT 'THE CRAZY LECTURER TAKES THE 
BOOKLET ANDGIUES YOU SEEDS' RETURN 
i850 PRINT "THE. WARRIOR CATCHES YOU AS Y 
OU TRY to ESCAPE FRON the CITY" 
i855 RETURN 

i860 PRINT "SONE ATLANTANS HEAR YQl) ON T 
HEIR RADIOS AND INUESTIGATE" RETURN 
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1870 PRINT the ATLANTAN LAUGHS AT YOU id 
ALKING INTO THE WALL"-RETURN 
1880 PRINT 'THE ATLANTAN WILL NOT LET YO 
U PASS":RETURN 

1890 PRINT "THE ATLANTAN IS DISTRACTED A 

ND DOES NOT SEE YOU lEAUE".RETURN 

1900 PRINT "THE WALL IS TOO SOuID ^OR yO 

U TO GO THROUGH IT".RETURN 

1910 PRINT 'I SEE NOTHING WORTH TAKING N 

OTE OF' RETURN 

1920 PRINT HE G'lUES YOU SOMETHING TO HE 
lP YOU WITH THE ATMOSPHERE" RETURN 
1930 PRINT 'THE FlOWER G'lUES OFF A PliNGE 
NT ODOR BUT DOESN’T HARM YOU' .RETURN 
1940 PRINT ' THE GORILLA FOLLOWS YOU IN T 
HE HOPE OF GETTING MORE FOOD'.RETURN 
i950 PRINT 'THE ADDITION OF MORE FUEL TO 
THE REACTORHAS STABILIZED IT':RETURN 
,.960 PRINT ' I HADE NOTHING WITH WHICH I 
CAN OPERATE THE RAISING MECHANISM' 
i960 RETURN 

,970 PRINT ' YQ'J HADE DROWNED IN the NATE 
R THAT HAS TuOODED THE AIRLOCK' 

,975 RETURN 

i960 PRINT THE SEEDS GROW QUICKLY AND F 
ORM TALL • POLE UAlJlT SHAPED PLANTS 
i980 RETURN 
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Chapter Six 


Other Games 
for your 
Computer 
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CHAPTER SIX 

You may ask: why other games in an adventure book? 
There are several reasons. Firstly an introduction into 
games writing can show how the computer makes 
decisions and how to ‘weight’ the game to make it 
more entertaining. A few of the techniques used in 
writing these games can be transferred and used in 
writing adventures. Secondly and perhaps the main 
reason, they are really good fun and entertaining to 
play. 

I have kept the comments on each program reasonably 
brief with the instructions explained and some of the 
techniques highlighted. 


Raiders from Mars 

This is the only moving graphics game in the book. It 
uses items from the graphic character set and moves 
them around the screen using POKE. All relevant 
collisions are detected by using PEEK. The keyboard 
is scanned using PEEK(197) which reads the 
keyboard buffer. The value of the keys pressed is then 
used to move your base left and right and to fire your 
missiles. This method of accepting input is invaluable 
in moving graphic games because it allows for key 
repeats, it is faster than using GET and it also rejects 
all inputs other than the ones you are using. 

To move your firebase to the right use the V key, value 
44 in line 65. To move it to the left, press the 7 key, 
value 47. The line also makes sure that your firebase 
doesn’t move off the screen. These two keys were 
chosen because the ‘less than’ and ‘greater than’ 
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symbols on the top of the keys point in the correct 
directions! 

In line 90, if K equals 21, the value of the ‘F’ key —then 
we go to the missile firing routine, provided a missile 
isn’t already on the screen. 

This program has all the basic elements required for a 
moving graphics game and puts them all together most 
effectively. 

It has: 

1. Moving targets. 

2. A moving firebase. 

3. Laser or missile firing. 

4. The aliens shoot back. 

5. Good explosions. 

6. An end routine with score and high score features. 

7. A start routine. 

The only feature it doesn’t have is sound effects during 
the playing of the game. These were left out because 
they slowed down the action and, in a moving graphics 
game, the action is the most important element. 


10 REM xxx RAIDERS FROM MARS xxx 
30 GOSUB 1200 
40 GOSUB 2000 

50 L=3:X = 18:C=54272;POKE 53280,0:POKE 53 
281 ,0 

55 PRINT "sSrORF: US; SI]]]]]]]]]]] 3-rfS HI 
PS * " ; L 

56 REM CLR SCRN HOME RIGHT CRSR YELLOW N 
EXT LINE HOME DOWN CRSR 
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57 PRINT 

$$$$$$$$$$$$";REM CONN KEY AND Q KEY 
60 FOR 1=0 TO 39 : POKE 1944+1,99:POKE 194 
4+C+I,1:NEXT 

65 XI=X:K=PEEKC197 J: X=X+CK=42HNDX>0 3-C K = 

506NDX<37I: IF XI OX THEN ER = 1 

70 IF ER=1 THEN POKE 1904+XI,32:POKE 190 

5+XI,32:POKE 1906+XI,32:ER=0 

80 POKE 1904+X,112:POKE 1905+X , 113:POKE 

1906+X,110 

85 POKE 1904+X+C , 1:POKE 1905+X+C , 10:POKE 
1906+X+C,1 

80 IF K=10 THEN IF SF=0 THEN SF=1:BX=X+1 
-40:BY =22 

100 IF SF=1 THEN POKE 1024+BX+40*BY,32: B 
Y=BY-1:pE=PEEKC1024+BX+40XBY} 

102 IF SF=1 THEN IF PE=107 OR PE=88 OR P 

E=115 THEN HI=0:GOSUB 500 

107 IF SF=1 THEN IF PE=40 OR PE=42 OR PE 

-41 THEN H2=0:GOSUB 500 

110 IF SF=1 THEN IF BY<=3 THEN SF=0 

120 IF SF=1 THEN POKE 1024+BX+40*BY,93:P 

OKE 1024+BX+40*BY+C,4 

130 IF HI=0 HND RNDC1 }> .5 THEN GOSUB 600 
:XI=X5:Q=HS:N1=N5:HI=1 

140 IF H2=0 HND RNDC1 }> .5 THEN GOSUB 600 
:X2=X5:Q2=HS:N2=N5:H2=l 

150 IF HI=1 THEN H=Q+X1:N=N1:F=1:GOSUB 7 
00:XI=H-Q:HI=F:IFX1<0ORX1>36THENH1=0 
155 IF HI=1 THEN POKE Q+Xl,107:POKE Q+Xl 
+ 1 ,88:POKE Q+Xl+2,115 

157 IF HI =1 THEN POKE (3+X1+C ,7: POKE Q+Xl 
+ 1+C,14:POKE Q+X1+2+C ,7 
160 IF H2=l THEN H=Q2+X2:N=N2:F=1:GOSUB7 
00:X2=H-Q2:H2=F:IFX2<0ORX2>36THENH2=0 
165 IF H2=l THEN POKE Q2+X2,40:POKE Q2+X 
2+1,42:POKE Q2+X2+2.41 
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167 IF 62=1 THEN POKE Q2+X2 + C ,4:POKE Q2+ 
X2+1+C ,3;POKE Q2+X2+2+C , 4 
170 RS=RNDC13-IF RSC.05 THEN IF 62=1 THE 
N N=Q2+X2+41:GOTO 800 

180 IF RS >.95 THEN IF 61=1 THEN N=Q+Xl+4 
1:GOTO 800 
190 GOTO 65 

500 EX-=1024+BX+40*BY: POKE EX,102:POKE EX 
-1,102-POKE EX+1,102 

502 POKE EX+C ,10: p OKE EX-1+C,10:POKE X+l 
+0,10 

505 POKE EX+40,102:POKE EX-40,102 

507 POKE EX+40+C,10:POKE EX-40+C.10 

510 S=S+50:PRINT 'SSCORE:";S 

530 POKE EX,32:POKE EX-1,32:POKE EX+1 ,32 

I POKE EX+40,32:POKE EX-40,32 

532 POKE EX+2,32.POKE EX-2,32 

540 SF=0.RETURN 

600 V = I NT CRND C13*173+2:6S = 1024+40*Y;Z = IN 
TCRNDC 13*2 3; IF 6S = Q OR 6S=Q2 THEN 600 
610 IF Z = 1 THEN X5 = 37 ; r*l5=-1 
620 IF 2=0 THEN X5=0.H5=1 
630 RETURN 

700 POKE 6,32.POKE 6+1,32:POKE 6+2,32:6 = 
6+fl 

710 IF PEEKC6 1 =93 OR PEEKC6+23=93 THEN G 
OSUB 500.p=0 
720 RETURN 
800 0 =N 

810 POKE N,93;N=N+40: IF PEEKCN3 = 112 OR P 
EEKCN3=113 OR PEEKCN3=110 THEN 850 
820 IF N>1983 THEN FOR CL=0 TO N STEP 40 
:POKE Cl, 32:POKE CL+C , 1:NEXT:GOTO 65 
325 IF N<1983 THEN POKE N-40,113.POKE N- 
40+C,2:GOTO 810 

830 FOR Cl =0 TO N STEP 40:POKE CL,22:NEX 

T 
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850 POKE U0,15;P0KE AD,17:POKE SR,64:P0K 
E WF,33;P0R HN=1 TO 6 

860 POKE HF , 3: POKE LF,155:P0R TD--1 TO 25 

;NEXT:POKE HF,7:POKE LF,53 

865 FOR TD -1 TO 50:NEXT TD:NEXT HN 

370 POKE UO , 0:POKE WF,0 

880 FOR 1=0 TO N STEP 40:POKE 1,32:POKE 

I+C , 1;NEXT 

890 L=L-1: PRINT " S 3 3 3 3 ] ] ] ] .11111S HIPS: ": 1 

sIF L =0 THEN 950 

895 REN HONE RIGHT CRSR 

900 GOTO 65 

950 E = 1905+X:C=56177+X: POKE E,160:POKE C 

,2 

960 POKE E-l ,160:POKE E+1,160:POKE E-40, 

160:POKE C-1,4:P0KE C+l ,4 

965 POKE C-40 , 4 ; POKE E-2,102:POKE E+2,10 

2:POKE E-41,160:POKE E-39,160 

970 POKE E-80,102:POKE C-2,3:P0KE C+2,3: 

POKE C-41 ,3:POKE C-39,3 

975 FOR TD=1 TO 3000.NEXT 

1000 PRINT " SQQQQQ 3 3 3 3 3 3 3 3 3 3 3 R GONE 

ODER xxx" 

1005 REN HONE DOWN CRSR RIGHT CRSR 

1010 PRINT " QQQ33333111111IDY OU SCORED"; 

S 

1015 REN DOWN CRSR RIGHT CRSR CYAN 
1020 IF S>HS THEN HS=S-PRINT ' QUz YOll GO 
T THE HIGH SCORES!! WElL DONE 3 S " 

1025 REN DOWN CRSR RIGHT CRSR LT BLUE 

1030 PRINT " Q33333 3 333333 T HIGH SCORE";HS 

1035 REN DOWN CRSR RIGHT CRSR 

1040 FOR TD--1 TO 5000: NEXT TD 

1050 02=0:91=0:8=0:SF=0.GOTO 50 

1200 00=54296:HD=54277:SR=54278:WF=54276 

:HF=54273:LF=54272;RETURN 

2000 POKE 53280,0.POKE 53281,4 


129 




2010 PRINT "s_"; 

2020 POKE UO,15:POKE AD, 17;POKE SR,32:P0 
KE WF.17 

2030 FOR TL = 1 TO 24 

2040 Hl = INTC50xRNDCl3+150 1:L1 = I NTC50*RND 
Cl 3+1503 

2050 POKE HF,Hi:POKE LF,Ll:FOR TD=1 TO 1 
5:NEXT 

2060 PRINT ' R±xxxxxxxxxxx RAIDERS FROM FI 
ARS xxxxxxxstxxK'; 

2065 REFI REU ON BLUE REU OFF 
2070 NEXT TL 

2080 POKE UO.0i p OKE WF,0 
2090 FOR TD=1 TO 500;NEXT TD 
2100 RETURN 


Solitaire 

This classic game, at one time played with small 
pebbles in ancient Greece, is given an up-to-date 
touch in this computerised version. You must jump 
over one peg with another, either horizontally or 
vertically, and the peg that has been jumped over is 
removed from the board. The object of the game, using 
this movement, is to clear the board of pegs except for 
one in the middle. In this game you move by entering 
the co-ordinates of the peg you wish to move and then 
the co-ordinates of the position you wish to move to. 
The computer will reject any illegal moves. You enter 
the side number and then the top number, e.g. if you 
wish to move peg 6 (side co-ordinate), 4, (top 
co-ordinate) to position 4 (side co-ordinate) 4 (top 
co-ordinate), you would first enter 64 followed by 44. 
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If you succeed in completing the puzzle, the computer 
will tell you how many moves you took. If you are not 
so fortunate, the computer will display the number of 
pegs still left. 

If after a number of attempts you still cannot succeed, 
then try the solution below. Many thanks to George 
Furlonger of Fareham for his solution. 


SOLUTION: 

46 — 44, 65 — 45, 57 — 55, 
75 — 55, 73 — 75, 63 — 65, 
25 — 45, 55 — 35, 75 — 55, 
43 — 63, 51 — 53, 31 — 51, 
51 — 53, 43 — 63, 55 — 53, 
13 — 33, 15 — 13, 43 — 23, 
24 — 44. 


37 — 57, 45 — 65, 
54 — 56, 57 — 55, 
34 — 54, 36 — 34, 
32 — 52, 63 — 43, 
63 — 43, 34 — 32, 
13 — 33, 32 — 34, 
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10 REM *** SOLITAIRE xxx 
20 GOSUB 400 : REA INITIALISE 
30 GOSUB 250 . REA PRINT DISPLAY 
40 REA xxx AOUE xxx 

50 PRINT-PRINT "OJHICH PEG DO YOU NISH T 

0 MODE",.-REM BLUE 

60 INPUT A 

70 IF A =99 THEN 240 

80 IF A<11 OR A>77 THEN 50 

80 IF AC A 3078 THEN 50 

100 PRINT. PRINT ' aTIOUE TO WHICH HOLE"; ;R 
EM ORANGE 

110 INPUT B:GOSUB 640 

120 IF B<11 OR B>77 THEN 110 

130 IF A C B 3 OE THEN 110 

140 AC CA+B 3/2 3--E: A C A 3-~E» A C B 3 "79 

150 MU--MU +1 : CO -0 

170 FOR F = 11 TO 75 

180 IF ACF 3--79 THEN C0--C0+1 

190 NEXT F 

200 GOSUB 250 

205 PRINT:PRINT 'THERE ARE”:CO; PEGS LEF 
t ON THE BOARD” 

220 IF COOl THEN 40 

230 IF AC44 3“79 THEN PRINT:PRINT ”VOU HA 
UE COAPLETED THE PUZZLE IN JUST” 

235 IF AC44 3--73 THEN PRINT MU; AGUES”; GO 
SUB SOUND:END 

240 PRINT:PRINT THE GAME IS OUER AND YO 
U HAUE FAILED”■GOSUB 690.END 
250 REA xxx DISPLAY xxx 

260 PRINT 'O: GOSUB 590. REM CLEAR SCREEN 
270 PRINT TABC53 JENTER SIDE CO-ORDINAT 
E FIRST”:PRINT:REM PURPLE 
280 PRINT TABC6 3 OENTER 99 TO CONCEDE D 
EFEAT”:PRINT.REM LT RED 
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230 PRINT:PRINT TABC12D "ul 234567" 

: REN GREY 1 

300 PRINT TABC12D; 

310 FOR D --1 1 TO 75 
320 T-10XCINTCD/10 ] I 

330 IF D-T=8 THEN D=D+2:PR I NT T/10:PRINT 
THBC12D; :: GOTO 350 
340 PRINT CHRtCACD .1 I, ' "; 

350 NEXT D;PRINT " 7" 

360 PRINT:PRINT "NUMBER OF MODES SO FOR: 

■ ; MU 

370 RETURN 

400 REM xxx INITIALISE xxx 
405 POKE 53280,6:POKE 53281,3 
410 PRINT DIM A C 87 1:E -42 
420 FOR D---11 TO 75 
430 T = 10*CINTCD/10 D .1 
440 IF D~T=8 THEN D=D+3 
470 READ A F D 0 
480 NEXT D 
490 MU=0 

495 00=54296- AD-54277: SR=54278: NF=54276: 
HF=54273:lF=54272 
500 RETURN 

510 REM xxx DATA xxx 
520 DATA 32,32,79,79,79,32,32 
530 DATA 32,32,79,79,79,32,32 
540 DATA 79,79,79,79,79,29,79 
550 DATA 79,79,79,42,79,79,79 
560 DATA 79,79,79,79,79,79,79 
570 DATA 32,32,79,79,79,32 ,32 
580 DATA 32,32,79,79,79 

590 POKE UO. 15: POKE AD, 17;. POKE SR,132.PO 
KE WF.17 

600 POKE HF,51:POKE LF,97*P0R TD=1 TO 15 
0.NEXT TD 
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610 POKE HF ,0^ POKE LF,0:FOR TD = 1 TO 75:N 
EXT TD 

620 POKE HF,43:POKE LF,52:F0R TD-1 TO 20 
0:NEXT TD 

630 POKE 00,0iPOKE WF ,0:RETURN 
640 POKE 60,18;POKE SR,132;POKE UF,17 
650 FOR TT = 15 TO 1 STEP -1:P0KE UO,TT 
660 POKE HF,14;POKE LF,107;FOR TD=1 TO 7 
5:NEXT TD 
670 NEXT 

680 POKE UO ,0: POKE UF,0:FOR TD--1 TO 750: 
NEXT TD;RETURN 

690 POKE UO,15;POKE AD,132:POKE SR, 132:p 
OKE NF,33 

700 POKE PiF , 4 ; POKE LF ,73: FOR TD = 1 TO 500 
'.NEXT TD 

710 POKE UF,0:POKE 00,0:RETURN 


Four By Four 

This is a family favourite, where you must attempt to 
get four of your counters in a row either horizontally, 
diagonally or vertically. Your pieces are represented 
by the yellow circles and the computer’s by the purple 
‘spades’ symbols. The computer always allows you to 
go first and you move simply by entering the column 
you wish to slide a counter down. 

The computer plays very fast, replies are almost 
instant, and surprisingly well. The computer is weaker 
near the beginning of the game, but the longer the 
game progresses, the stronger it gets. 
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10 REM xxx FOUR BY FOUR xxx 
20 GOSUB 1080 
25 GOSUB 860:GOSUB 680 
30 GOSUB 970:GOSUB 860:GOSUB 680 
40 GOSUB 110:GOTO 25 
110 REM xxx COMPUTER MOUE xxx 
120 PRINT:PRINT TABC9D "^STAND BY FOR MY 
MOUE..„":REM LT RED 
130 GOSUB 1220:B = 10 
140 B=B+1 

150 IF ACB D=-9 THEN }80 

160 IF ACBD=C THEN X=C:GOTO 210 

170 IF ACB D=H THEN X=H:GOTO 210 

180 IF B<77 THEN 140 

190 GOTO 490 

210 REM xxx CHANCE OF FOUR IN A ROW xxx 
230 IF ACB+1D=X AND ACB+2D=X AND ACB+3D= 
E AND ACB+13 DOE THEN MU=B+3:G0T0 650 
240 IF ACB-1D=X AND ACB-2D=X AND ACB-3D= 
E AND ACB+7 DOE THEN MU=B-3:G0T0 650 
250 IF ACB+1D=X AND ACB+2D=X AND ACB-1D= 
E AND ACB+9 DOE THEN MU=B-l:GOTO 650 
260 IF ACB-1D=X AND AC.B+2D=X AND ACB+1 D = 
E AND ACB+11 DOE THEN MU=B+l:GOTO 650 
270 IF ACB+1D=X AND ACB-1D=X AND ACB+2D= 
E AND ACB+12 DOE THEN MU=B+2:G0T0 650 
280 IF ACB+1D=X AND ACB-1D^X AND ACB-2D- 
E AND ACB+8 DOE THEN MU=B-2:GOTO 650 
290 IF ACB-1D--X AND ACB-2D=X AND ACB+1D= 
E AND ACB+11DOE THEN MU=B+1:G0T0 650 
310 IFB>20THENIFACB-10D=XANDACB-20D=XAND 
ACB+10 D=EANDACB+20 D OETHENMU =B+10 
320 IFB720THENIFACB-I0 D--XANDACB-20 D=XAND 
ACB+10 D=EANDACB+20 DOETHENGOTO650 
330 IF ACB+11D=X AND ACB+22D=X AND ACB-1 
1 D=E AND ACB-1 DOE THEN MU=B-11: GOTO650 
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340 IF A f.B+9 D =X AND ACB+18D=X AND ACB-9D 
-E AND ACB+1DOE THEN NU=B~9:G0T0 650 
360 REN xxx CHANCE OF 3 IN A ROW xxx 
380 IF ACB+1D-X AND ACB+2D=E AND ACB+12D 
<>E THEN NU=B+2-GOTO 650 
390 IF ACB+1D=X AND ACB-1D=E AND ACB+9D< 
>E THEN NO^B-1:GOTO 650 

400 IF ACB-1D=X AND ACB~2D=E AND ACB+8K 
>E THEN HU^B-2:GOTO 650 

420 IF ACB+10 D=X AND ACB~10D=E AND ACB D< 
>E THEN NU=B~10:GOTO 650 
440 IF ACB+9 D=X AND ACB-9D=E AND ACB+1D< 
>E THEN N0=B-9:GOTO 650 

450 IF B>11 THEN IF ACB+11D=X AND ACB-11 

D=E AND ACB-1 DOE THEN |1U=B-11: GOTO 650 

460 GOTO 180 

490 FOR N=1 TO 3 

500 N C N 3 =0 

510 NEXT N 

520 CO =0 

530 FOR B=ll TO 77 

540 IF ACBDOC AND ACBDOH THEN 600 
550 IF ACB+1D=E AND ACB+11DOE THEN CO=C 
0+1: HCCO D--B+1 

560 IF ACB-1 D=E AND ACB+9DOE THEN CO=CO 
+ l:f1CC0D=B-l 

570 IF ACB--10 D=E AND ACB DOE THEN C0=C0+ 
l:HCCO3=B-10 

580 IF ACB-11D=E AND ACB-1 DOE THEN C0=C 
0+l:MCC03=B~ll 

590 IF ACB-9 D-E AND ACB+1 DOE THEN C0=C0 
+1:NCCO D=B-9 
600 NEXT B 

610 IF COO0 THEN 640 

620 PRINT:PRINT TABC9D "eJ THINK IT IS A 
DRAW ! !":GOSUB 1240:END.REN BLACK 
640 NU=NCINTCCOxRNDC1DD+1D 
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650 ACNU]=C 
660 RETURN 

670 REN xxx WIN CHECK xxx 
680 X =H 
700 B = 10 

710 B=B+1: IF ACBDOX THEN 770 

730 IF ACB+1D=X AND ACB+2D=X AND ACB+3D= 

X THEN 800 

740 IF B>30 THEN IF ACB~10D=X AND ACB-20 

]=X AND ACB-30 3=X THEN 800 

750 IF B>33 THEN IF ACB-m=X AND ACB-22 

D=X AND ACB-33D=X THEN 800 

760 IF B>27 THEN IF ACB-9D=X AND ACB--18D 

~X AND ACB-27 D--X THEN 800 

770 IF B<77 THEN 710 

780 IF X=H THEN X=C:G0T0 700 

790 RETURN 

800 REN xxx WIN FOUND xxx 
810 PRINT:PRINT 

820 IF X =H THEN PRINT TABC9 ] "z_YOU HAUE 
BEATEN MEM!": REN LT GREEN 
830 IF X=C THEN PRINT TABC7D "all HAUE BE 
ATEN YOU, HUNAN 5 5":. REN YELLOW 
835 GOSUB 1240:END 
850 REN xxx PRINT BOARD xxx 
860 PRINT " sj' : PRINT " zxxxxxxxxxxxxx FOUR 
BY FOUR xxxxxxxxxxxxx",PRINT 
865 REN CLEAR SCREEN LT BLUE 
870 FOR K=10 TO 70 STEP 10 
890 PRINT-PRINT TABU 3D; 

900 FOR J=1 TO 7:IF ACK + J3*113 THEN PRIN 
T " ai" ; : REN YELLOW 

905 IF AC J +K ] -97 THEN PRINT "_';:REN PUR 
PLE 

907 IF A f. J +K ] =46 THEN PRINT " ± 1 ' If REN GRE 
EN 

910 PRINT CURTCACK + J 33: 
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920 NEXT J : NEXT K 

935 PRINT:PRINT:PRINT TABC13] "a] 2 3 1 
5 6 7":PRINT:REN ORANGE 
960 RETURN 

970 REN xxx HUNAN NOUE xxx 
990 PRINT TABC123 "QIT IS YOUR NOUE":REN 
CYAN 

1000 PRINT "WHICH COLUNN DO YOU WISH TO 
NOUE INTO. . 

1010 INPUT J 
1020 Z=J 
1030 Z=Z+10 

1040 IF ACZ+10 3=E THEN 1030 

1050 IF ACZD=E THEN ACZD=H:RETURN 

1060 PRINT “YOU CAN'T NOUE THERE":GOSUB 

1240 

1070 GOTO 1000 

1080 REN xxx INITIALISE xxx 

1100 PRINT "sJ': POKE 53280,10: POKE 53281, 

11:REN CLR SCRN 

1110 DIN AC1093.NC30D.PC6D 

1120 U0=54296:AD-54277:SR=54278:WF=54276 

1130 HF =54273:LF =54272 

1140 E=46:H=113:C=97:REN ASC CODES FOR P 

RINTING BOARD 

1160 FOR B=1 TO 109 

1170 ACB D -E 

1180 D =B-10xINT C B/l0 D 

1190 IF D=0 OR D>7 OR B<11 OR B>77 THEN 
ACB D=-9 
1200 NEXT B 
1210 RETURN 

1215 REN xxx SOUND ROUTINES xxx 

1220 POKE UO,15:POKE AD,18:POKE SR,132:P 

OKE WF.17 

1230 POKE HF ,9:POKE LF,159:P0R TD = 1 TO 3 
00:NEXT TD:POKE UO,0:POKE WF,0:RETURN 
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1240 POKE UO,15sPOKE HD,33:P0KE SR,132:P 
OKE WF,33 

1250 POKE HF,34:POKE LF,75:P0R TD=1 TO 2 
50:NEXT TD 

1260 POKE PiF ,0: POKE i_F,0:POR TD = 1 TO 75: 
NEXT TD 

1270 TG = TG+1: IF TG.>3 THEN TG=0:POKE UO,0 
:POKE UF ,0:RETURN 
1280 GOTO 1240 
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Chapter Seven 


Sound and 
Graphics 
for your own 
Adventures 
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CHAPTER SEVEN 

As the title suggests, this chapter includes some ideas 
that you can use when writing your own adventures. 
These graphic and sound routines can liven up a drab 
adventure and give you ideas to create others. 

While many purists believe that an adventure should 
either be purely text or purely graphic, there are many 
(including us) who believe that an occasional graphic 
display heightens the enjoyment that a user receives 
from playing the game, providing three factors are 
noted. The graphic displays should not be used in 
locations that are not often visited, as a player does 
not want to come across the same display too often. 
There should not be too many such displays in an 
adventure which is primarily text. Finally, the pictures 
should not take too long to generate. A picture of 
great complexity may look wonderful, but much of the 
magic is lost if it takes six or seven minutes to draw. 


Sprites 

The following program uses sprites, the REVERSE ON 
feature and the feature which sets screen and border 
colours to produce a scene which could occur in an 
adventure. Our brave hero is travelling down a road 
when he finds his path blocked by two fearsome 
wraiths! 
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i0 REM xxx GRAPHIC DISPLAY xxx 
20 PRINT ' s_' ! : : POKE 53281,0’ POKE 53280,11 
:GOSUB 2000 : REM CLR SCREEN 
30 U=53248:POKE U+21 ,28 

40 POKE 2042,134:POKE 2043,195:POKE 2044 
.136 

50 FOR SI"12416 TO 12478:READ Q: p OKE SI, 
Q:NEXT 

60 FOR S2=12480 TO 12542:READ Q2: p 0KE S2 
.Q2:NEXT 

70 FOR S3~12544 TO 12606:READ Q3: p 0KE S3 
,Q3:NEXT 

80 POKE U+43,14:POKE U+42,2: p 0KE U+41,10 

90 POKE U+4,175:POKE U+5.200 

100 POKE U+6,200:POKE U+7,150 

110 POKE U+8,150:POKE U+9,150 

130 GOTO 130 

200 DATA 0,0,16,0,24,8,0,36,4,0,36,2,0,2 

4,3,0,24,7,0,230,14,1 ,129,252 

210 DATA 3,129,248,15,129,240,14,66,0,28 

.66,0,56,60,0,1 12,62,0,224 ,85,0 

2221 DATA 64,5,0,1,5,0,2,5,0,5,5,0,10,5,0 

.10,7,128 

230 DATA 0,16,2,0,40,6,0,84,14,0,186,30, 

0 ,84 ,62,0 ,40,126,0 ,56,254,0,223,230 

240 DATA 1,215,226,255,239,192,255,95,12 

8,127,224,0,96,222,0,97,156,0 

250 DATA 97,172,0,66,216,0,2,184,0,7,88, 

0,12,176,0,31,240,0,31 ,240,0 

260 DATA 0,16,2,0,40,6,0,84,14,0,186,30, 

0,84,62,0,40,126,0 ,56,254 ,0,223,230 

270 DATA 1,215,226,255,239,192,255,95,12 

8,127,224,0,96,222,0,97,156,0 

280 DATA 97,172,0,66,216,0,2,184,0,7,88, 

0,12,-176,0,31 ,240,0,31 ,240,0, 

2000 FOR XX=1 TO 400 
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2010 PRINT "R±. ";:REN REU ON BLUE ONE SR 
ROE 

2020 NEXT 
2025 XY = 14 

2030 FOR XX=1424 TO i984 STEP 40 

2040 FOR X =XX TO XX+XY 

2050 POKE X,160;POKE X+54272,5 

2060 NEXT 

2070 XY=XY-1 

2080 NEXT 

2085 XY-14 

2090 FOR XX = 1449 TO 2023 STEP 40 
2100 FOR X =XX TO XX+XY 
2110 POKE X , 160;POKE X+54272,5 
2130 NEXT 

2135 XX=XX+1:XY=XY-1 
2140 NEXT 
3000 RETURN 

Line 20 clears the screen, sets the screen and border 
colours and then calls up the routine which begins at 
line 2000. Lines 2000 to 2020 use the REVERSE ON 
feature to draw in the blue sky. Lines 2025 to 2080 
draw in the green fields to the left of the black road and 
lines 2085 to 2140 do the same for the right hand side 
of the road. 

Line 30 sets V equal to the beginning of the video RAM 
and then turns on sprites 2, 3, and 4. (POKE V+28). 
Line 40 then sets the memory pointers for these 
sprites. Lines 50 to 70 READ the sprite DATA into the 
relevant memory locations. We then set the sprite 
colours in line 80. The three sprites are positioned on 
the screen by lines 90 to 110. Line 130 sets up an 
endless loop to keep the scene on the screen. 

Lines 200 to 280 contain all the DATA to draw the 
sprites. 
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Title Pages 

By using the REVERSE ON feature and a combination 
of the two graphic characters from the asterisk and L 
keys with a series of reversed spaces, we can 
produce very impressive title screens for our 
programs. The short routine below demonstrates how 
to do this. 


'0 REM xxx TITLE PAGE xxx 
20 POKE 53280,2:POKE 53281,0 
30 PRINT "a.": REM ORANGE 
50 PRINT REM CLR SCRN 

60 REM ' R" IS REV ON 
20 REM "l: IS REV OFF 

80 REM IS COMMODORE KEY PLUS x KEY 

90 REM " T IS SHIFT KEY PLUS <£ KEY 
100 PRINT - QQQQ" 

105 REM DCUN CRSR 


110 
r . 

PRINT TABC63 
R. i." 

' R. 


r_. 

R. 

L. 

R. L.. 

R. 

120 

£_ 

PRINT T ABC6 3 
R. r ;■ 


R. 

T_. 

B.. 

r_. 

IR. L. 

R. 

130 

r_. 

PRINT TABC6 3 
R. r_: 


R. 

I_. 

R. 


R. L. 

R. 

i 40 
r_. 

PRINT TABC63 

r. l: 


R. 

T_. 

R. 

r_. 

R. L. 

R. 

150 

i 60 

PRINT TABC63 

L. EL L. 

PRINT 'QQ" 


R_. 

Jl. 

R. 

'll. 

EL n 

R. 

120 
L. EL 

PRINT TAB[8 3 
r_[' 

‘■R_ 


□n. 

r; 

) 

□l. R.3 

□ 

180 
r 3 

PRINT TAB[83 
□ EL l: 

' R. 

T_. 

R. 

r_. 

R. 

11.3 DR . ii. 

EL. 
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i 90 

PRINT 

TAB(8 3 

" R. 

H.3 R. 

L- EL 

r 

R_ 

200 

'll’’ 

PRINT 

TAB C8 3 

" R. r_. 

BL n. 

B. L. 

B. Dl 

□EL 

210 

L. EL l' 
PRINT 

TAB C 8 3 

■ EL n. 

B. n. 

EL l. 

□B. 


£j R. I.; 
220 GOTO 220 


Sound Effects 

Now we turn our attention to sound. The Commodore 
64 has a very good three-voice sound synthesiser 
which can be used to great effect in adventure 
programs. Most of the examples below use only one of 
the voices, however, the routine called ‘Scales 3’ uses 
voices one and three together. The short routines 
below are just examples of the type of effects you can 
create with your Commodore 64. Use these routines 
as starting points for your own experimentation. The 
titles in the REM statements are generally 
self-explanatory. 


10 REfl xxx SCALES 1 xxx 

20 UO-54296: AD--54277;' SR=54278: UiF =54226: H 
F = 54223:LF =54272 

30 POKE UO, 15:POKE AD,18:POKE SR ,64:POKE 
WF ,17 

40 FOR HI=2 TO 102 STEP 5:FOR LI=10 TO 2 
00 STEP 10 

50 POKE HF,Hi:POKE LF.Ll 
70 NEXT:NEXT 

80 FOR HI=107 TO 7 STEP -5:FOR LI=210 TO 
20 STEP -10 
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90 POKE HF,Hi:POKE LF.Ll 

100 NEXT:NEXT 

110 POKE WF , 0:POKE LF,0 


10 REN xxx SCALES 2 xix 

20 00=54296: AD=54277: SR=54278: WF =54276: H 


F =54273:LF=54272 
30 POKE UO.15:POKE 
WF , 17 

40 FOR HI=102 TO 2 
200 STEP 10 
50 POKE HF,HI:POKE 
70- NEXT: NEXT 
80 FOR HI=7 TO 107 
20 STEP -10 
90 POKE HF,Hi:POKE 
100 NEXT:NEXT 
110 POKE WF , 0:POKE 


AD, 18:POKE SR,64:POKE 
STEP -5:FOR LI=10 TO 
LF.Ll 

STEP 5:FOR Ll=210 TO 
LF , L1 
UO ,0 


10 REN SCALES 3 xxx 

20 00=54296:AD=54277:SR=54278:WF =54276:H 
F =54273:LF=54272 

30 A3=54291:S3 = 54292: W3=54290: H3 = 54287: L 
3=54286 

40 POKE 00,15:POKE AD, 17:POKE A3.15:POKE 
SR , 132:POKE S3,132 
50 POKE WF, 33: POKE 143,17 

60 FOR HI=4 TO 44 STEP 2:FOR LI=50 TO 25 
0 STEP 10 

70 POKE HF,Hi:POKE LF ,LI:POKE H3.H1-1:P0 
KE LF.Ll-10 
80 NEXT:NEXT 

90 POKE 00,0:POKE WF,0:PQKE W3,0 
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i0 REM xxx RANDOM NOTES xxx 

20 U0=54296: AD=54277: SR=54278: LIF=54276: H 

F=54273:LF=54272:HP=54275:LP=54274 

30 POKE UO,15:POKE AD, 17:POKE SR,132:P0K 

E WF,65:POKE HP,4:POKE LP,200 

35 FOR TT = 1 TO 6 

40 HI=INTC20XRNDC1 1+2 ]:LI=INTC180XRNDC1D 
1+10 

50 POKE HF,Hi:POKE IF,LI 
60 Tl=INTC3xRNDCl3+13*100 
70 FOR TD--1 TO T1: NEXT 
80 POKE HF,0:POKE LF,0 
90 FOR TD--1 TO 50: NEXT 
100 NEXT 

110 POKE UO , 0: POKE UIF ,0 


i0 REM xxx FADING NOTE xxx 

20 00=54296:AD=54277:SR=54278: WF=54276:H 

F=54273:LF=54272 

30 POKE AD,32:POKE SR,255:POKE WF, 17 

40 FOR TG = 1 5 TO 1 STEP -1 

50 POKE UO,TG 

60 POKE HF,12:POKE LF.216 

70 FOR T D = 1 TO 100:NEXT TD 

80 NEXT TG 

90 POKE UO , 0: POKE UJF,0 


10 REM xxx PHOTON TORPEDOES xxx 
20 00=54296:AD=54277:SR=54278:WF=54276: H 
F=54273:LF=54272 

30 POKE AD,15:POKE SR,147:P0KE UF,129 
40 FOR TG = 15 TO 1 STEP - 1:POKE U0,TG 
50 POKE HF,2:POKE LF,6 
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60 FOR TD=1 TO 50:NEXT TO 
70 NEXT TG 

90 FOR TD--1 TO 100: NEXT: POKE 00,0:POKE 0 
D „ 0: POKE UIF ,0 

100 R=R+1:IF R>3 THEN R=0:END 
110 GOTO 30 


10 REN xxx WHIZZ xxx 

20 00=54296:HD-54277:SR=54278:WF=54276:H 

F = 54273-LF =54272.HP =54275:LP = 54274 

25 POKE HD ? 17:POKE SR, 132:POKE UF,33:P0K 

E 00,15 

30 Hi=5;LI=10 

40 POKE. HF , H1 : POKE LF.lI 

50 FOR TD = 1 TO 2:NEXT 

60 HI =Hl+5: Ll =l1-(-10 

70 IF L1<250 THEN GOTO 40 

30 POKE. 00,0. POKE UF,0 


5 REN xxx JET xxx 

10 00=54296:HD =54277:SR=54273:WF =54276: H 
F=54273:LF=54272 

20 POKE 00,15.POKE HD,17: POKE SR, 17: POKE 
WF,129 

30 FOR HI=20 TO 70:FOR Ll=2 TO 200 STEP 

4 

40 POKE. HF , H1 : POKE LF.Ll 

60 NEXT:NEXT 

70 POKE 00,0:POKE WF ,0 
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i0 REM xxx BUZZER xxx 

20 UO = 54296:AD =54277:SR=54278: WF=54276:H 
F =54273:LF =54272 

30 POKE UO,15:POKE AD, 18:POKE SR,132:P0K 
E WF , 33 

40 FOR TT = 1 TO 8 

50 POKE HF,4:POKE LF,73:F0R TD=1 TO 50:N 
EXT 

60 POKE HF,7:POKE LF,53:F0R TD = 1 TO 50: N 
EXT 

70 NEXT 

80 POKE UO,0:POKE WF,0 


i0 REN xxx FAILURE, xxx 

20 U0=54296:AD=54277:SR=54278:WF=54276:H 
F=54273:LF=54272 

30 POKE UO,15:POKE AD,32:POKE SR,255:P0K 
E WF ,33 

40 POKE HF,2s POKE LF , 220 
50 FOR TD=1 TO 1500:NEXT 
60 POKE UO ,0: POKE LIF,0 


10 REN xxx WARNING SIREN xxx 

20 UO=54296:AD=54277:SR=54278:WF=54276:H 

F=54273:LF=54272 

30 POKE UO,15:POKE AD, 18:POKE SR,146:P0K 
E LIF , 33 

40 FOR TG=1 TO 6 

50 POKE HF,14:POKE LF, 107:FOR TD = 1 TO 35 
0:NEXT:POKE HF,0:POKE LF,0 
60 FOR TD=1 TO 125:NEXT 

70 POKE HF,9:POKE LF, 159:FOR TD = 1 TO 350 
:NEXT:POKE HF,0:POKE LF,0 
80 FOR TD=1 TO 125:NEXT 
90 NEXT 
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Symphonies 

From sound effects, we move onto tunes. By using 
DATA statements it is a very simple matter to play any 
piece of music on your computer. The example 
program shows the basic method to use. The program 
contains a central loop from line 40 to line 100. This 
loop READS the DATA, POKES the values into the high 
frequency and low frequency registers and provides 
the time delay to create the length of the note. Line 50 
is used to turn off the sound registers when the song 
has finished. This line gets its signal from dummy 
pieces of DATA at the end of the DATA lines. 

Lines 20 and 30 initialise the sound generator. VO is 
the volume, AD the attack/decay, SR the 
sustain/release, WF the waveform, HF the high 
frequency, LF the low frequency, HP the high pulse 
rate for waveform 65, the pulse waveform, and LP is 
the low pulse rate. 

The DATA in lines 200 to 260 is used in groups of 
three. The first number is for the high frequency 
register (READ H) and the second number is for the 
low frequency (READ L). The third piece of DATA is for 
the time delay (READ D), which is used in the 
FOR/NEXT loop in line 70. 

Lines 500 to 530 set the border and screen colours 
and PRINT the title of the piece of music while it is 
playing. 

To produce this short program, I selected a suitable 
piece of music and then set to work. Reading from the 
sheet music, I obtained the values for each note from 
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the ‘Music Note Values’ list in the User’s Manual. The 
Programmer’s Reference Guide will give you the 
exact values for the length of the notes. When you are 
doing this, don’t forget the sharps and flats or else you 
may find some very odd-sounding notes in your tune. 

A final warning. Most popular songs are covered by 
copyright, so if you are using a piece of music in a 
program that will be used other than for your own use 
at home, make sure you choose music that is not 
covered by copyright. 


10 REM *** PLAYING' A TUNE x*x 
15 GDSUB 500 

20 00=54296: AD=54277: SR-54278: WF =54276: H 
F =54273; LF=54272:HP=54275:LP=54274 
30 POKE 00,15:POKE AD,65:POKE SR,65:POKE 
HF,65:POKE HP,200:POKE LP,5 
40 READ H:READ L:READ D 

50 IF H =999 THEN POKE 00,0;POKE WF,0:END 
60 POKE HF,H:POKE LF,L 
70 FOR TD = 1 TO D:NEXT 
80 POKE HF,0: POKE LF,0 
100 GOTO 40 

200 DATA 28,49,412,28,49,412,29,233,412, 

33.135.412.33.135.412.29.233.412 

210 DATA 28,49,412,25,30,412,22,96,412,2 

2.96.412.25.30.412.28.49.412 

220 DATA 28,49,600,25,30,200,25,30,850 
230 DATA 28,49,412,28,49,412,29,233,412, 

33.135.412.33.135.412.29.233.412 

240 DATA 28,49,412,25,30,412,22,96,412,2 
2,96,4 12,25,30,412,28,49 ,412 
250 DATA 25,30,600,22,96,200,22,96,412 
260 DATA 999,999,999 
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500 POKE 53280,0:POKE 53281,2 
510 PRINT sE 

520 PRINT TABC14D " QQQQQQQ P DF TO JOY' 
525 REN CRSR DOWN PURPLE 
530 RETURN 


You may now be saying: The tune is very nice, but 
what use is it to me in writing an adventure? A tune can 
be useful. It can be a theme tune played at the 
beginning or the end of the game or as a companion to 
a special display. Secondly, a tune can be a clue or 
puzzle itself. 76 Trombones’ is an ideal example. The 
tune is known but often people cannot put the title to 
it. You could therefore have a location that you were 
trapped in until you could guess the two-digit code 
that held the door shut. The correct code would be 
76 and your only aid would be to hear a snatch from 
the tune. The number of guesses, the player could 
have before being trapped forever, would be severely 
limited to say three or four, meaning that the player 
really had to know the tune before he or she could 
proceed any further. 

This is just one of the many things that you can do with 
sound in an adventure. Generally sound is a good 
feature to add. It is relatively cheap on memory and if 
an adventurer does not like it then he can turn his 
television down! 
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Chapter Eight 


Help! 

A Guide to the 
Adventures 
in this Book 
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CHAPTER EIGHT 

You need only read this chapter if you have failed to 
solve the adventures in this book. We deliberately 
withheld as much information about the adventures as 
possible without spoiling the programming knowledge 
that you were given. Naturally, some of the surprises 
had to be given away to demonstrate the particular 
programming point being made at the time, however, 
there are still many little traps for you to fall into. Here, 
we will give you a few tips to get you further into the 
adventures in this book. 


Golden Chalice 

The first adventure, that we will give help on is the grid 
game, The Golden Chalice’. 

With this game, the one thing that you must do is 
concentrate on the map at the beginning of the game. 
The symbols may seem odd but are detailed below: 


Roof opening 

Monster 

Human 

Rope 

Torch 

Flood 

Quicksand 

Map 

Chalice 

Empty Cave 


= CHR$ 32 
= CHR$133 
= CHR$120 
= CHR$ 41 
= CHR$122 
= CHR$166 
= CHR$119 
= CHR$188 
= CHR$ 36 
= CHR$ 46 


space 
solid circle 
clubs symbol 
right bracket 
diamond 
checkerboard 
open circle 
cross 
asterisk 
full stop 


In the brief time that the map appears on the screen, try 
to memorise where the map is. If you collect the map, 



you can then move around the adventure and when 
lost, for a fee of three hours, see the whole map at 
once. Try to write everything down, and remember that 
you need four of the five pieces of rope. 

As this adventure is largely random, that is all the help 
we can give, other than to say: watch the screen at all 
times. 


Dark Forest 

Dark Forest is a more structured, and difficult, 
adventure to solve. There are some parts that are 
random in design but the locations and the links 
between them are always the same. 

Here are some tips: 

★ Do not go North from the beginning; you will land in 
prison. 

★ You have a better than average chance of 
benefiting from the opening of a possession, in all 
bar extreme circumstances. 

★ Your starting figures of money, strength and magic 
will almost certainly be not enough to vanquish the 
Creature at the end of the game. Therefore you 
must do your best to obtain as many extra points 
(mainly through possessions) as possible. 

★ When fighting, choose your strongest attribute. If 
you lost, the game is over. Note: that whatever 
battle level of the Creature, the magic level is 
divided by 10. Magic is often the best attribute to 
use. 
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★ The battle strengths of the monsters are: Sir Rufus 
Of Gascony, 20 (weak), A Ferocious Bear, 20 
(weak), A Band Of Robbers, 40 (strong), Grendal, 
The Hermit, 40 plus a random element of up to 15 
(strong and unpredictable) and the Black Knight 60 
(keep well away from him; this enemy will give 
anyone a terrible mauling). 

★ The bridge guarded by the troll marks the only way 
to the Creature’s lair. You must offer at least 40' 
(preferably more) pieces of gold to get yourself 
through. If the troll rejects your offering, then you 
are moved to a distant and tricky part of the 
adventure. 

★ The cave’s entrance is to the south; the clue you 
are given is just to slow you down considering the 
answer. 

★ The well location is interesting. You are asked if 
you wish to go down the well. There is a large 
chance that you will be drowned, the computer’s 
reckoning that the well is empty is not to be trusted 
here. If you do go down the well and are safely at 
the bottom, you will see an ornament with the 
magic word GRANDOS inscribed on it. The 
ornament is the Ram of Anag, think about it... The 
Anag-Ram! Therefore the magic word is not 
GRANDOS but an anagram of that word, 
DRAGONS. This is the code word that should be 
used when confronting the woodcutter’s hut. 

★ If you have been round the adventure, collected 
the Ram of Anag and have landed in the Black 
Knight’s prison, do not worry. The computer will 
ask you for a final command. If you enter the code 
word, then you can escape. It’s no use just 
entering the code word if you do not own the 
ornament, the computer recognises cheats! 
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★ Try to boost up your money and spells in particular. 
If at any time your strength appears to be getting 
low, you can have a rest which will revitalise you. 
Spells are good for fighting enemies and are 
particularly effective against the Creature. 

★ Try to codify your movements. Wandering 
aimlessly around the adventure is not a very good 
way of attempting to solve it. Write down on paper 
your movements and actions and try to construct a 
map. These will all aid you in trying to solve the 
adventure. 


The Nielson Papers 

This is a much tougher adventure than the previous 
one, and will keep you adventuring for some time. Here 
are some hints to aid you in your progress. Be 
warned, we have not told you everything. 

★ From the opening location, you can only move 
north. 

★ Do not fire your gun without the silencer unless it is 
a real emergency. The sonic alarm in the building 
will pick up the sound and will alert the security 
forces. You will then have little time to escape, 
(another 15 moves or so). 

★ There are 30 or so commands for you to find, 
understand and use. Here is a list of them: 

GO 

MOVE — Allows you to travel around 

game, use N, S, E, W. 
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TAKE 

GET 

STEAL 

DROP 

READ 

CLIMB 


CUT 


CHANGE 

OPEN 

UNLOCK 


FIRE 

SHOOT 

WAIT 

DRINK 

SEARCH 

LOOK 


WEAR — 

COMPUTE 
CALCULATE — 


Collect a movable object. 

Self explanatory, allows you to 
discard an object. 

Read certain messages. 

Climb up to shelf with papers on, 
must have the stool or ladder to 
do so. 

Cut fence with wirecutters. Care 
should be taken here, without 
gloves you will be burnt to a 
crisp. 

Allows you to change money to 
coin for executive washroom. 

If carrying key, unlocks doors 
but must be used discriminating¬ 
ly, very old. 

If carrying gun, allows you to fire 
at security guard. 

Simply a pause. 

Allows you a drink, if you have a 
cup. 

Allows you greater detail of a 
location, then the normal des¬ 
cription. Must have torch to do 
so. 

Allows you to wear the gloves. 

Allows you to work out the 
coded memo to the computer- 
controlled lock in the document 
room. 
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DECODE 

HELP 

— A simple plea for assistance. 

CLUE 

— Another plea for assistance! 

QUIT 

— Type this when you’re fed up with 

PUT 

the game. 

— With this command, you can put 

HIT 

FIGHT 

ATTACK 

KILL 

the money into the coin-oper¬ 
ated lock and attach the silencer 
to the gun.* 

— These commands will allow you 


to vanquish a security guard. If 
you do not have rope or wire- 
cutters, then you will fight with 
your hands. 


★ There are 18 objects and only a couple like 
paper-clips and Papers are totally useless and 
have been put in as ‘red herrings’. 

★ The key which is in the dark corridor opens all the 
locked doors. 

★ If you get as far as escaping, you need to get to the 
fence at the back of the delivery room. You will 
need the wirecutters to snip through the fence and 
also the special gloves to stop you being 
electrocuted. 

★ Once in the document room, you will need a stool 
or ladder to climb to the top shelf. 

★ Try to decode the memo as its advice is pretty 
important. 

★ Once in the maintenance area, going west will just 
take you further into it. 

★ Be careful when around the vault. If you get locked 
in there, without the key, your game is over. 
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★ Plan your escape carefully. Once you have taken 
the papers, the alarms sound and your remaining 
time is very short. 

★ Finally, as with Dark Forest, always map out the 
adventure. By creating a plan or map of the 
adventure, you can travel to any required location 
easily. It is the only way to solve the adventure. 


City Of Atlantis 

A lot of help has already been given on the City Of 

Atlantis adventure in the form of a map, a list of 

commands and a list of the objects. Here are a few 

extra points of note: 

★ If you bump into a wall in room 1, the Atlantan is 
distracted with laughter and you can then go East 
to room 2. 

★ In the Radio Station, do not stay for too long, some 
Atlantans may hear you over the radio and come 
and investigate. 

★ Search the Scientist in room 2 and you will be 
given something to alleviate your problems with 
the thin atmosphere. You will then have enough 
strength to fight the Gladiator in room 3. 

★ Try to steer clear of any monsters until you think 
you know how to dispose of them. Remember, that 
in most cases, the ‘baddies’ are blocking or hiding 
a course of action open to you. Many of these 
courses of action are essential to your escape 
from Atlantis. 

★ A cryptic clue to finish with, remember your 
horticultural knowledge, it will come in useful at a 
point.. 
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Chapter Nine 


Some Ideas 
for your own 
Adventures 





CHAPTER NINE 

After reading through all of this book, we hope you will 
be inspired to rush off and write your own adventure. 
Sometimes, thinking up a plot with all the characters, 
objects and locations can be difficult. Below, we have 
briefly outlined a few ideas that you may wish to use. 


The Plot 


Obvious ones include stealing the treasure, battling 
against the creature to save planet Earth and rescuing 
a prisoner. Most adventures involve you finding 
something. The actual item can be almost anything, 
such as a lost city or the last dilithium crystal left that 
will enable your stranded spacecraft to blast off back 
to its home planet. 

More difficult to think of is the actual setting that your 
adventure is to be in. Try at first to narrow it down to an 
area, e.g. space, medieval, underground, everyday, 
desert, ocean, recent history and the like. The present 
time is a fascinating area in which to place your 
adventure. Most people expect a medieval or fantasy 
type game when they settle down to play an 
adventure, so you can imagine their surprise when 
they find the first location to be on a number 73 bus 
going towards the town centre! Our game, The 
Nielson Papers’, uses a fairly everyday setting but with 
a secret agent approach. For extra interest, you could 
possibly merge a couple of these ideas and form a 
rather surreal adventure with three or four totally 
different settings in the one adventure. 

Another possibility concerns a more personal 
adventure written around your home. The characters 
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could be people that you know and you could add a 
few locations if you do not have enough rooms to fill 
up your adventure. Another idea that you could base 
your adventure on is from a book or story that you 
have read. Of course, by doing this, you will have to 
keep it for your own personal use, as copyrights on all 
written material are very strict and usually enforced 
heavily. If you are writing an adventure just for 
yourself, then using a story gives you many of the 
locations and characters needed. 


Locations 

Thinking up 20 or 30 location names is not always an 
easy task, especially when they all have to tie up with 
the adventure. In all adventures there are a few 
locations that perform little or no task and are just to 
travel through. Below are a list of descriptions that can 
be used for this purpose. 

A dark, dank storeroom. 

A spacious hallway, richly decorated with 
paintings. 

A musty corridor. 

A windswept garden, covered in weeds. 

A clean, white room sparsely furnished. 

An area of strange, tangled undergrowth. 

A vast storage room, cold and uninhabited. 

A small meadow of no significance. 

A gently rising hill. 

A crumbling building built some time ago. 

A collection of ruins. 
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These are just a few of the possible descriptions that 
you can use. They are fairly non-specific and are short 
so there is room for you to add details if you need to 
do so. 

You will need some very specific locations to tie in 
with the whole aim of your adventure and these can be 
obtained from your plot quite easily. 


The Characters 

Names of creatures both good and bad are not that 
hard to create, but why work yourself when you have a 
powerful computer nearby? The program below 
generates random creature names. The combinations 
of letters are not totally random, there are several 
lines that guarantee a vowel every second and fifth 
letter and a line to stop a ‘Q’ coming anywhere except 
at the front of the word. It’s only a simple program but 
you may get a few useful names from it. 


i0 REM xxx NAME GENERATOR xxx 
20 PRINT " s_: : NAMET ="" A =0 - L$ = 

30 PRINT;POR N = 1 TO I NT C2xRND C1 3+2 3 
40 A = I NT C 26xRND C13+65 3 
50 IF A =81 AND HOI THEN 40 
55 G'OSUB 130 

60 NAME$ =NAME$+CHR$ C A 3+L$ 

30 NEXT N 

100 PRINT TAB C10 3 NAMEt;PRINT•PRINT - P RIN 

T 

110 PRINT 'PRESS ANY KEY POR ANOTHER NAM 
F" 
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i20 GET At;IF A$ = "" THEN 120 
125 RUN 

130 RESTORE:FOR T = 1 TO I NTC8xRNDC1] +1 D:R 
END L$ 

140 NEXT T 
150 RETURN 

160 DATA A , E , I ,O.U,AE,CH,TH 


For those of you with a printer, why not type in the 
following program that dumps twenty names onto 
paper. 


10 REN xxx NONE GENERATOR xxx 

15 OPEN 1 ,4;CNDi 

16 REM PRINTER PLOTTER SHOULD BE OPEN 1, 
6 

17 FOR X=1 TO 20 

20 NAMEi~' ' • A =0. Lt =" ' 

30 PRINT;-OR N = 1 TO I NTC2*RNDC1 3+2 J 
40 A = I NT C 26xRND C1 1+65 ] 

50 IF A =81 AND NOl THEN 40 
55 GOSUB 130 

60 NAMEi-~NAf1Ei+CHR$CA }+Li 

70 NEXT N 

100 PRINT NAMEt; 

110 NEXT X.CLOSE 1;END 

130 RESTORE:FOR T=1 TO INTC8xRNDC13+1]:R 
FAD Lt 
140 NEXT T 
150 RETURN 

160 DATA A ,E , I ,Q,U,AE,CH,TH 
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A large percentage of the names formulated will be 
unusable, but you only need to gain a few names to 
have made the exercise worthwhile. Here is a sample 
printout of some words generated. We have ringed 
those which may be suitable. You may have different 
ideas, and prefer others in the list. 


ZUUAE^, 

OTTiJAENI 
PAEATHUU 
MAEIOIA 
DUIEHAE 
LCHUIU 

CCHUOKTH 
: CC.HD TH 
ruiALTHJ 


UUOEUAE 

SC.HUI 

HUDFTB 

(KTHCOTTH) 

UAFSO PU 

cfm 


( lUMAEO 
XEYIFE 
HUAAET E 
feOXCFP 
OCHUUUTH 
CCHTf^> 
UTHCEEA 
FOXOBCH 



rZEJAESL) 

SEKAEXTH 


SAEJAEYI 

OBEL I 

^TaRA^ 

XCHCAUCH 

NUSUK AE 

iPAZLp 

sbsl) 

C.APAEYCH 



MECOPI 
OAELEYI 
QTFiP I 
WEBBFCH 
IIEA 

ZCHBUGTH 
BTHZ AF 
r SBNl 

ToHch. 

CCFiCBO I 
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